Select Code to Download

  for ($i=0; $i<$qry->numrows; $i++) {
    @row = $qry->fetchrow or warn '...';
    print "\@row is assigned @row\n";
    $athlete[$i] = [ @row ];
  }

  for my $i (0 .. $qry->numrows - 1) {
    @row = $qry->fetchrow() or warn '...';
    $athlete[$i] = [ @row ];
  }

  for (1 .. $qry->numrows) {
    @row = $qry->fetchrow() or warn '...';
    push @$athlete, [ @row ];
  }