sub func {
    %parms = @_;

    foreach (keys %parms) {
        print "parms[$_] = $parms{$_}\n";
    }
}

func("a" => 1, "b" => 2, "c" => 3);