Select Code to Download

while ( my ($key,$value) = each %$rows ) {
    my $name = $value->{name};
    # ...
}

my $hash_ref = $dbh->selectall_hashref('select id, name, price from pr
+oducts', 'id' );
while ( my ($id,$value) = each %$hash_ref ) {
...
    my $price = $value->{price};
    # ...
}