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