my @v=sub{@_>1 and die "Got more than one: @_\n";@_}->(keys %x)'