#!/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
##</code><code>##

#!/usr/bin/perl
use 5.016;
use strict; 
use warnings;

# madbeeWAG2.pl

my ($str, $list);
my @Names = ('Larry', 'Curly', 'Moe');

for my $name(@Names) {
    $str .= ($name . ",");
}

(my $listitem1, my $listitem2, my $listitem3) = split /,/, $str;

say "\$listitem1: $listitem1";
say "\$listitem2: $listitem2";
say "\$listitem3: $listitem3"; 

=head

$listitem1: Larry
$listitem2: Curly
$listitem3: Moe

=cut