my @names  = qw / fred betty barnet dino wilma pebbles bam-bam /;

my $total = scalar @names;
print "number of elements in array: $total\n";

my $first = 0;
print "index number of first element: $first\n";

my $last = $#names;
print "index number of last element: $last\n";

for my $index ( $first .. $last ) {
	print "index $index: $names[ $index ]\n";
}

my @userNumber  = qw / 1 3 /;

my $counter = @userNumber;
print "counter is: $counter\n";

print "Start loop...\n";
foreach $counter ( @userNumber ) {
	print "counter is: $counter\n";
	my $index = $counter - 1;
	print "\t$counter - 1 = $index: $names[ $index ]\n";
}