my @rec_data;
while (my $data = $result->fetchrow_hashref) {
    push @rec_data, [ $data->{rec_no}, $data->{name}];
}
for my $i ( 0 .. 9 ) {
    print $rec_data[$i]->[0];
    print $rec_data[$i]->[1];
}