Ah I see....hmm this should work...
open FH, "<bla..."....
while (<FH>) {
if (/^(\d+)/ && grep { /^\Q$1\E$/ } @numbers) {
push @result_list, $_;
}
}
close FH;
Code:
my @numbers = split /\|/, $in{my}; open FH, "<bla..."....
while (<FH>) {
if (/^(\d+)/ && grep { /^\Q$1\E$/ } @numbers) {
push @result_list, $_;
}
}
close FH;