foreach my $files(@files) {
  $c++;  

  if($files=~m|.*/([^_]+)|) {
    $f_name = $1;
  }

  if (exists $filelist{$f_name}) {
   print "$c - Found and to be deleted: $files\n";
  }


}

##</code><code>##

for (@files) {
  $c++;  

  if(m|.*/([^_]+)| && exists $filelist{$1} ) {
     print "$c - Found and to be deleted: $_\n";
  }
}