...
next if grep { /$file/ } @array_code; # not working
[download]

How is that grep not working? Can you describe in English what that line is supposed to do?

Maybe it helps you diagnose this if you print out the two values for each comparison?

...
next if grep { warn "Checking if $_ =~ /$file/"; /$file/ } @array_code
+;
...
[download]