Select Code to Download

open my $p, "< ". shift @ARGV
   or die "could not open pattern file: $!";
...
        $pattern;
    }
}

# get column 0 from all result rows simultaneously....
my $results = $sth->fetchall_arrayref([0]);
...
        $pattern;
    }
}