@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";