$VAR1 = [
          undef,
          ${\$VAR1->[0]},
          'e',
          ${\$VAR1->[0]},
          'i',
          ${\$VAR1->[0]},
          'm',
          't'
        ];

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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";