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

$sth->execute;

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

$sth->finish;