foreach my $field (qw( foo bar baz)) { *$field = sub { my $self = shift; $self->{$field} = shift if @_; $self->{$field}; }; } #### use CGI qw(:all); my @names = param(); foreach my $name (@names) { $$name = param($name); }