$ perl -wMstrict -le 'sub x{} my $h={50=>[1]}; x(scalar @{$h->{100}})'