Select Code to Download

my @orig = qw(a,b c,d e,f);
my $extra = 'hi';
my @new = map { $_ .= ",$extra" } @orig;
print "orig: [@orig] => new: [@new]\n";
# orig: [a,b,hi c,d,hi e,f,hi] => new: [a,b,hi c,d,hi e,f,hi]