my @bar = qw(a c e g i k m o q s u w y); @bar = @bar[2,4,6]; push @bar, 't'; #### print "True\n" if 'eimt' eq join '', sort @bar;