$moo = "3";
my @recs;
Functions- 

my @fields = qw( MEH MOOSE );
bind_hash_query_arraydec: @recs = bind_hash_query_arraydec('BLEH', \@fields, 'WHERE pissant = ?',$moo);

bind_hash_query: @recs = bind_hash_query('SELECT MEH, MOOSE FROM BLEH WHERE pissant = ?',$moo);

doUpdate:  @recs = doQuery('SELECT MEH, MOOSE FROM BLEH WHERE pissant = ?',$moo);