use warnings;
use strict;

#               0   1   2   3   4   5   6   7
#               '   '   '   '   '   '   '   '
my @words = qw(aaa bbb ccc ddd eee fff ggg hhh);
my @tst_num_temp = qw(0 4 6);

my $c2 = 0;
my @tst_num;

while ($c2<=$#tst_num_temp) {
  $tst_num[$c2]=$words[$tst_num_temp[$c2]+1];
  $c2++;
}

print "@tst_num\n";