or download this
$ perl -wcle '$i = $j = 0; $athlete [$i, $j ++] = 1'
Multidimensional syntax $athlete [$i, $j ++] not supported at -e l
+ine 1.
Useless use of a variable in void context at -e line 1.
Name "main::athlete" used only once: possible typo at -e line 1.
-e syntax OK