Help for this page
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}; }