foreach $file ( grep {-e} @files ) {
    print "$file\n";
}