In that case, you can simply omit the $cgi->:

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

    # find the form value
    my $v = param( $p );

    # execute the query
    $sth->execute( $v, $p );
}
[download]

Note that DBI still uses OOP :)