Select Code to Download

my $sth = $dbh->prepare(<<__SQL__);
  SELECT * FROM $table;
...
push @{$table_data}, $_ while $sth->fetchrow_hashref;

$sth->finish;

my $sth = $dbh->prepare(<<__SQL__);
  SELECT * FROM $table;
...
$table_data->{$_->{id}} = $_ while $sth->fetchrow_hashref;

$sth->finish;