Select Code to Download

#!c:\perl\bin\perl.exe -w

...
    my ($test) = grep { $csvlist[$_] =~ /$x/} 0..$#csvlist;
    print "$x found at index: $test\n";
}

file1 found at index: 2
file2 found at index: 5
file3 found at index: 0
file4 found at index: 7
file5 found at index: 4