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