sub add_to_hash {
    my $h_ref = shift or die;
    $h_ref->{key4} = 4;
}