You probably want

next if grep { $file =~ /$_/; } @array_code;
[download]