Select Code to Download

$VAR1 = [
          undef,
...
          'm',
          't'
        ];

my $i = 1;
my @bar = grep $i++ % 2, ('a'..'z');

@bar = @bar[2,4,6];

my $i = 1;
my @bar = (grep $i++ % 2, ('a'..'z'))[2,4,6];

($bar[0],$bar[-1]) = ($bar[-1],$bar[0]);

use strict;
use warnings;
...
push(@bar,'t');
($bar[0],$bar[-1]) = ($bar[-1],$bar[0]);
print "@bar\n";