#!/usr/bin/perl
use 5.016;
use strict; 
use warnings;
# madbeeWAG.pl -- WAG as in "It sure looks like madbee was doing wild assed guessing."
=head

my @Names = ('Larry', 'Curly', 'Moe');
foreach my $id(0..$#Names) {
    say $id;
    # ....
}

output:

C:\>madbeeWAG.pl
0
1
2

=cut 


my @Names = ('Larry', 'Curly', 'Moe');
my $id = 0;
for my $name(@Names) {
    	my $var = $name;
        my $varid = $var . $id;
        say $varid;
        ++$id;
}

#output 2
# Larry0
# Curly1
# Moe2