%hash = EXPR;

##</code><code>##

my @anon = LIST;
%hash = ();
while (@anon) {
   my $k = shift(@anon);
   my $v = shift(@anon);
   $hash{$k} = $v;
}