#! /usr/bin/perl -w
use strict;
my @fruit = qw( apple banana mandarin
                peach pear plum );
my @favourite_fruit = @fruit[ 0, 3 ];
print "@favourite_fruit\n";
print scalar @fruit, "\n"