Select Code to Download

while (my $rec = $sth->fetchrow_hashref()) {
    print $rec->{xy}, $rec->{xz}, $rec->{yz};
}

while (my $row = $sth->fetchrow_hashref()) {
    print map( { "$_ => $row->{$_}\t"} @{$sth->{NAME}}),  "\n";
...
    }
    print "\n";
}

while (my $row = $sth->fetchrow_arrayref()) { # arrayref, not hash
    my $index = 0;
...
    }
    print "\n";
}

my $aref = $sth->fetchall_arrayref({});