#!/usr/bin/perl -w
use strict;

my @array = qw(TEST TEST TEST);
my $num = 1;

foreach (@array) {
    $_ .= ($num +=1);
}

print join(" ",@array)."\n";


# produces:
TEST2 TEST3 TEST4