foreach my $field qw(foo bar baz quux wibble) {        
    no strict refs;
    $$field = param( $field );    
}