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