Select Code to Download

$ cat t.pl
#/usr/bin/perl
...

print "Size of b[0]: ", scalar(@{$b[0]}), "\n";
print Dumper($b[0]),"\n";

$ perl t.pl
Size of a: 3
...
          1,
          2
        ];