#!/usr/bin/perl

use strict;
use warnings;
use Test::More;
use Data::Dumper;

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

is(keys %{$hash},            1, q/keys %{$hash} is 1/);
is(scalar @{$hash->{'50'}},  1, q/$hash->{'50'} is 1/);
is(scalar @{$hash->{'100'}}, 0, q/$hash->{'100'} is 0/);

print Dumper $hash;

done_testing();