#!/usr/bin/perl

my @array = qw(fred ethel ricky lucy);
my $scalar = @array;

print $scalar, "\n";

exit;