$ perl -e '@array=qw(0 1 2 3 4 5); $count = ($i, $j, $k)= @array; print "$count\n";'
6