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