Select Code to Download

use strict;
use warnings;
...
while( @b = ( $x ) = shift @a ) {
  print Dumper \@b;
}