(@$_ = keys %foo) == 1 or die "Got more than one: @$_\n" for \my @v;