my @O foreach (@F) { push @O, pop @F; }