my $sth = $dbh->prepare(<<__SQL__);
  SELECT * FROM $table;
__SQL__

$sth->execute;

my $table_data = [];
push @{$table_data}, $_ while $sth->fetchrow_hashref;

$sth->finish;

##</code><code>##

my $sth = $dbh->prepare(<<__SQL__);
  SELECT * FROM $table;
__SQL__

$sth->execute;

my $table_data = {};
$table_data->{$_->{id}} = $_ while $sth->fetchrow_hashref;

$sth->finish;