$ perl -e '
> @cur = (1, 2, 3); @win = (4, 5, 6); $i = 66;
> print "Begin: \$i=[$i], \$cur[2]=[$cur[2]], \$win[2]=[$win[2]]\n";'
Begin: $i=[66], $cur[2]=[3], $win[2]=[6]
$