my @droppedFileNameArray; 
 
foreach my $key (sort keys %checkfile) 
 
 
{	my $droppedfilename = fileparse($key, qr/\Q.check\E/);  
	print "$droppedfilename \n"; 
	push(@droppedFileNameArray, $droppedfilename);  
 
 
#} 
 
	my $file = $sftp->ls('/tmp/', wanted => qr/$droppedfilename/, wanted => qr/.doc/, no_wanted => qr/^\./ ); 
	my %file = map { $_->{filename} => $_->{a}->size } @$file; 
 
print Dumper \%file; 
$logContents .= Dumper \%file; 
 
$sftp->remove("/tmp/$droppedfilename.check"); 
 
 
}