my @results;
while (my %data = $dbh -> dbnextrow(1)) {
  push @results => \%data; 
}