An array on the left of a list assignment receives all remaining initializers in the list on the right side of a list assignment : Array Assignmengt « Array « Perl
An array on the left of a list assignment receives all remaining initializers in the list on the right side of a list assignment
@array = qw( zero one two three four five six seven eight nine );
print "@array\n\n";
( $first, @array2, $second ) = ( 1 .. 8 );
print "\$first = $first\n";
print "\@array2 = @array2\n";
print "\$second = $second\n";