my $rhash;
for my $key (qw(one two three four)) {
	$rhash->{$key} = $parm{$key};
}