Help for this page
$ perl -e '@array=qw(0 1 2 3 4 5); $count = ($i, $j, $k)= @array; prin +t "$count\n";' 6