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)'

[download]

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

In Section Seekers of Perl Wisdom