#!/usr/bin/perl

use strict;
use warnings;

my $hash = {
	'50' => [ 1 ]
};

print scalar @{$hash->{'100'}};