Select Code to Download

# Reading from a prepopulated array
my @wanted;
foreach my $line ( @input ) {
    push $line, @wanted if $line =~ /^SELECT poid/;
}

# Reading from a filehandle
my @wanted;
foreach my $line ( <$input_fh> ) {
    push $line, @wanted if $line =~ /^SELECT poid/;
}

my @wanted = grep { /^SELECT poid/ }, @input;