Select Code to Download

$sth->bind_col(1, \my $key);   

my %rows;
...
while(my $row = $sth->fetchrow_hashref) {
  $rows{ $key } = $row;
}