I'd write @bar and extract elements indexed 2,4,6 like this:

my @bar = qw(a c e g i k m o q s u w y);
@bar = @bar[2,4,6];
push @bar, 't';
[download]

but I have no idea why you want to do this.

If you want to verify that you can anagram to 'time' with some permutation, just do print "True\n" if 'eimt' eq join '', sort @bar; If your problem is more general, please explain what it is.

After Compline,
Zaxo