Select Code to Download

{
  push @results, $sth->fetchrow_hashref || last;
  redo;
}

@results = @{$sth->fetchall_arrayref({})};

Currently, a new hash reference is returned for each 
row.  This will change in the future to return the same
hash ref each time, so don't rely on the current 
behaviour.