I'd try this:

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

Of course, you can switch qw(one two three four) with @list_of_keys or (1..6)

update: <homer_simpson>D'oh</homer_simpson>. The following line is what merlyn was referring to:

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

Which was wrong because that expression returns a list of values corresponding to those keys, while what you want is a list of keys.
It's fixed now. Thanks merlyn!

-- ar0n | Just Another Perl Joe