sub get_hasharray{
  my ($statement, @param) = @_;  
  
  my $sth = $dbh->prepare($statement);
  $sth->execute(@param) or die failLog( $dbh->errstr );
  my @erg;
  while (my $zeile = $sth->fetchrow_hashref()){
    push(@erg,$zeile);
  }
  $sth->finish;
  return @erg; 
}

get_hasharray(SELECT * FROM a WHERE id = ?, 2);