Select Code to Download

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

...
    my $index = $counter - 1;
    print "\t$counter - 1 = $index: $names[ $index ]\n";
}

number of elements in array: 7
index number of first element: 0
...
    1 - 1 = 0: fred
counter is: 3
    3 - 1 = 2: barnet