Select Code to Download

$athlete[$i][$j++] = $bug;

$j = 0;
foreach my $bug (@row) {
...
  #$athlete[$i][1] which is not the same as what you set
  #but rather the value you will set the next time through.
  . . .

print "\@athlete[\$i,\$j] is assigned the value $athlete[$i][$j-1]\n";