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;