while($row_ref = $sth->fetchrow_hashref()) {
 print F "$row_ref->{$_} " for keys %$row_ref;
 print F "\n";
}