Select Code to Download

while(my $ref = $sth->fetchrow_arrayref()) {
  print "first=",$$ref[0]," second=",$$ref[1], .....
}