i.e.
#!/usr/bin/perl

use strict;

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

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