Number of arrayrefs in hash element 'one'

print scalar(@{$a{one}}),"\n";
[download]