gistfile1.txt

#!/usr/bin/perl
my $args = {eax=>1,ebx=>2};
my ($eax, $ebx) = @{%$args}{qw/eax ebx/};
print "case1: $eax, $ebx\n";
($eax, $ebx) = @{$args}{qw/eax ebx/};
print "case2: $eax, $ebx\n";