$ perl -c cube.pl
Missing $ on loop variable at cube.pl line 4.
$