Select Code to Download

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

for my $key (@parm{one,two,three,four)}) {