my $dir = 'C:/Users/';               
my $body;                    
my @file = ("");
opendir( MYDIR, $dir ) or die 'opendir';
$body =
   join( "\n",                           
               
      readdir MYDIR
	  
   );
closedir MYDIR;
#print "$body";

if ("$body =~ m/\.csv$/" cmp "$body =~ m/\.csv.xls$/")
{}
else {push (my $file);}
print "$file";
exit 0;