DB<1> sub param { return "zorch" } DB<2> $name = param( "name" ) DB<3> $hash{ "name" } = "this and that" if $name ne ""; DB<4> p $hash{ "name" } this and that