Yes, but...

The file open should really contain the path as well:

foreach my $file ( grep { -f $_ } @files )
[download]

...the file test should really contain the path as well ;-)

foreach my $file ( grep { -f "$path/$_" } @files )
[download]