sub foobar { my ($foo, $bar) = @{{@_}}{qw/foo bar/}; #the @{{}}{} logic } [download]
In reply to Explanation of commonly used Perl by tradez