I appreciate BrowserUk's nifty answer, but I'd keep it simple:

while ( @ar ) {
    push @result, pop(@ar), shift(@ar), shift(@ar), pop(@ar);
}
[download]

Be well,
rir