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