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