use strict;
use warnings;

my $i = 1;
my @bar = (grep $i++ % 2, ('a'..'z'))[2,4,6];
push(@bar,'t');
($bar[0],$bar[-1]) = ($bar[-1],$bar[0]);
print "@bar\n";