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

# or

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

# or

my $allrows_ref = $sth->fetchall_arrayref;
for my $row ( @$allrows_ref ) {
    print "@$row\n";
}