$sth=$dbh->prepare("select whatever from thetable where col=?");
$sth->execute($val);
my @list;
while(my $hashref=$sth->fetchrow_hashref) {
  push @list,$hashref;
}
$sth->finish;
return \@list;