in reply to Incorrect number of values in list assignment

A quick example may suggest an approach 
$ perl -e '@array=qw(0 1 2 3 4 5); $count = ($i, $j, $k)= @array; prin
+t "$count\n";'
6

[download]

print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."

In Section Seekers of Perl Wisdom