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}; }