#!/usr/bin/perl -w
#
my @array = ("Fred","Joe", "Margaret", "Hilda");
my $list = "@array";
my $count = @array;
print "list = $list \n";
print "count = $count \n";
list = Fred Joe Margaret Hilda
count = 4