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

my %rows;

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