my @expected = qw( title requester department etc ); my @request; foreach my $expect (@expected) { push @request, ($q->param($expect) or '0'); } #### foreach my $expect (@expected) { my $received = $q->param($expect); unless (defined $received) { $error .= "Didn't get $expect parameter!\n"; last; # and do an error somewhere } push @request, $received; }