Select Code to Download

  @a = (1,5,7,9,32,197,8,4,5); # (pretend this is dynamically generate
+d)
  @b = map {[ $a[2*$_], $a[2*$_+1]||() ]} 0 .. int $#a/2;