while($ref=fetchrow_arrayref()){
print "@{$ref}\n";
}

##</code><code>##

while($ref=fetchrow_arrayref()){
push @ary,$ref;
}
foreach (@ary){
print "@{$_}\n";
}