while (my $row = $sth->fetchrow_arrayref) {
    print @$row, "\n";
}