while ( (@record) = $sth->fetchrow_array()) {
                 push(@all_rows, \@record);
        }
        foreach my $row_ref (@all_rows) {
                print "@{$row_ref}\n";
       }