use strict;
use warnings;

my %swip_data = map { $_ => q() }
qw(
   02_org_name   03_org_addr1  03_org_addr2  04_org_city
   05_org_st     06_org_zip    07_org_cc     09_poc_type
   10_poc_role   12_poc_cname  13_poc_addr1  13_poc_addr2
   14_poc_city   15_poc_st     16_poc_zip    17_poc_cc
   18_poc_phone  19_poc_email  20_ip_addr    21_netname
   );

for my $field (sort keys %swip_data) {
    printf qq(%-12s => "%s"\n), $field, $swip_data{ $field };
}
[download]

02_org_name  => ""
03_org_addr1 => ""
03_org_addr2 => ""
04_org_city  => ""
05_org_st    => ""
06_org_zip   => ""
07_org_cc    => ""
09_poc_type  => ""
10_poc_role  => ""
12_poc_cname => ""
13_poc_addr1 => ""
13_poc_addr2 => ""
14_poc_city  => ""
15_poc_st    => ""
16_poc_zip   => ""
17_poc_cc    => ""
18_poc_phone => ""
19_poc_email => ""
20_ip_addr   => ""
21_netname   => ""
[download]