Perform list assignments and display results
@array = qw( zero one two three four five six seven eight nine );
print "@array\n\n";
( $chiquita , $dole ) = ( "banana", "pineapple" );
print "\$chiquita = $chiquita\n\$dole = $dole\n";
@array[ 1, 3, 5, 7, 9 ] = qw( 1 3 5 7 9 );
print "@array\n\n";
Related examples in the same category