http://qs1969.pair.com?node_id=1150048


in reply to Declaring with my, assigning, and testing in same line

Slightly more localized variables than tye, but still hardly worth it:
my @v=sub{@_>1 and die "Got more than one: @_\n";@_}->(keys %x)'

        Our business is run on trust. We trust you will pay in advance.