Select Code to Download

#!/usr/bin/env perl

...

dump \%local;
dump \%hash;

{
  # tied RJT::LocalHash
...
  some => "original",
}

package RJT::LocalHash {
    use parent 'Tie::Hash';
...
        $_[0]{new}{$_[1]} // $_[0]{orig}{$_[1]};
    }
}