Select Code to Download

sub unzip { my ($a, $b) = ([], []);
  while (@_) { push @$a, shift; push @$b, shift }
  [$a, $b]
}