You need to replace all @athlete[$i,$j] with $athlete[$i,$j], even with your print statement. Because the syntax @athelete[$i,$j] is wrong. ;-)

To understand why, you need to understand what is an array slice ...