use strict;
use warnings;

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