http://www.perlmonks.org?node_id=236478


in reply to Seeing if a hash has one arbitrary key

my @subvalues = values %{$h{$c}};
print "complicated" unless @subvalues == 1 and $subvalues[0] == 1;

[download]

Makeshifts last the longest.

In Section Cool Uses for Perl