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.