use strict;
my $i=1;
my @array = map{$_ . $i++} qw(TEST TEST TEST);
print "@array";