And yet another way. Unlikely to be the fastest.

my @evens;
{
    last unless @all;
    shift @all;
    last unless @all;
    push @evens, shift @all;
    redo;
}
[download]