Select Code to Download

 $VAR1 = {
           Ad1 => '20 SOUTH CENTRAL  #B3',
...
           zCode => '0007',
           name => 'Mary'
         };

#!/usr/bin/perl

...
 }   

print Dumper @$data;

 $VAR1 = {
           Ad1 => '20 SOUTH CENTRAL  #B3',
...
           new_zCode => '0007',
           new_name => 'Mary
         };