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