Select Code to Download

#!/usr/bin/env perl

...
}

dd $data;

[
  {
...
  { City => "BB", ID => 8888, status => "Test", zCode => "WWWW" },
  { City => "CA", ID => 8888, status => "Cabin", zCode => 2334 },
]

my @new = qw{City zCode ...};
...
        map +("new_$_" =>
            exists ...
        ), @new