use strict;
use warnings;
my @array = qw(1 2 3 4 5 );
my @new_array = map { $_."a"} @array;
print join("\t", @new_array);
[download]