Select Code to Download

...  # As before
my @extras  = grep {$_->{status} eq 'Extra'} @$data;
...
    }
    print Dumper($main);
}

$VAR1 = {
          'City' => 'NY',
...
          'new_z_code' => ''
        };