###call below sub
runsql("select * from table where 1=? and 2=?",$dbh,[$1,$2]);


    sub runsql {
         my $sql=shift;
         my $dbh=shift;
         my $vars=shift;
         my $sth=$dbh->prepare_cached($sql);
         $sth->execute(@$vars);

}