Select Code to Download

foreach my $p( grep /^\d+$/, param() ) {

...
    # execute the query
    $sth->execute( $v, $p );
}