Select Code to Download

     my %new_row_data = (new_name => $name, new_ad1 => $ad1, new_City 
+=> $town, new_z_code => $zcode);
     @$row{keys %new_row_data} = values %new_row_data;

  my %new_row_data = (new_name => $name, new_ad1 => $ad1, new_City => 
+$town, new_z_code => $zcode);
  foreach my $key (keys %new_row_data) {
    $row->{$key} = $new_row_data{$key};
  }