my @res;
my $row;

while ($row = $query->fetchrow_arrayref){
    print "$row->[0] : $row->[1] : $row->[2]";
    push @res, $row;
}

print "---------------------------------------";

foreach $row (@res) {
    print "$row->[0] : $row->[1] : $row->[2]";
}