my ($var, $val);
for (($var, $val) = each %{{@_ }}) {
    print "var = $var; val = $val\n";
}