@bar[$i] has got to be a mistake, i would say try $bar[$i] instead, but that is wrong as well. delete is for hashes, not arrays. Have you tried looking at what @bar really contains via Data::Dumper?:

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

Not what you thought, huh? Now, if i wanted to create an array that contained every second letter of the alphabet, i would try something like this:

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

Next, delete all elements but the second, fourth, and sixth:

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

You could combine the two steps:

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

Finally, push 't' and "@bar" will evaluate to "e i m t". If we could just swap the 't' and the 'e' ...

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

Is this what you wanted? Note that this line by itself will not yield the same results if you simply try to cut and paste into your script. Here is my complete script, for convenience:

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";
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)