Pattern Matching

          @files = grep { /$key\.*/i } @all_files;

I don't think this is a red flag
It's Just Plain Wrong
- Probably the author is thinking of shell wildcards
Most likely it should be

          @files = grep { /^$key\./i } @all_files;