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 };
}