Select Code to Download

use strict;
use warnings;

my %a = (one => [[],[],[]]);
print $#{$a{"one"}} + 1;

use Data::Dumper;

...

my %a = (one => [ ['a','b'],['c','d'] ]);
print Dumper(@a{one});

$VAR1 = [
          [
...
            'd'
          ]
        ];