sub a { @_ ? (pop,shift,shift,pop,&a) : () }
print a(1..8), "\n";