my @sorted = qw(
    02_org_name
    03_org_addr1
    03_org_addr2
    04_org_city
    ...
);
my %swip_data;
@swip_data{@sorted} = map {
    defined $cgi->param($_) and $cgi->param($_)
       or print "You must define a $_.<br>" and ''
} @sorted;