#!/usr/bin/perl
@food = ("apples", "pears", "eels");
@instruments = ("whistle", "flute");
@morefood = ("lard");
print "$food[2] \n";
push (@food, "eggs", "lard");
print "@food \n";
$grub = pop(@food);
print "$grub \n";
print "@food \n";
$f = @food;
print "\$f is \"$f\" in value format \n";
$f = "@food";
print "\$f is \"$f\" in string format \n";
$worms = @food[2];
print "$worms \n";
print " $#food \n";
print "************\n";
print @food;
print "@food";
print @food."";