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