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