my @results = &row_sql(qq~ select * from table where ...; ~);

my @results = &get_sql(qq~ select id from table where ...; ~);

my $rows = &hash_sql(qq~ select * from table; ~);
foreach my $row (@$rows){
  print "$row->{id}, $row->{somecolumn}\n";
}