my $i = 0;
for ($i==1; $i <= 5; $i++) {
    my $cat_name = 'cat'.$i;
    if ($params->{$cat_name} =~ /^\d+$/) {
        $cat_name = $dbh->quote($cat_name);
        print STDERR qq~$params->{$cat_name}\n~;

    } else { print STDERR "ololo\n";}
}