sub do_stuff {
    my $hash = dclone(shift);
    $hash->{'a'}->{'status'} = "NOT OK";
    print "IN SUB: " . $hash->{'a'}->{'status'} . "\n";
}