my @foo = (1..8);

my @indices = map { $_*2 +1 => $_*2 } 0..(@foo / 2)-1;
@bar = @foo[ @indices ];