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