Select Code to Download

my @rec_data = @{ $db->selectall_arrayref($select) };
foreach my $i ( 0 .. $#rec_data ){
  printf "%d) (recno,name)=(%s, %s)\n", $i+1, @{$rec_data[$i]};
}