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