Select Code to Download

my $var = [
 {
...
  'name' => 'George'
 }
];

$VAR1 = {
          'New York' => [
...
                        'George'
                      ]
        };

map { push @{$var1->{$_->{city}}}, $_->{name} } @{$var};