$HASH1 = {
           a      => sub {
                       use warnings;
                       use strict;
                       print "AAA\n";
                     },
           original_a
                  => 'V: $HASH1->{a}'
         };
$HASH1->{original_a} = $HASH1->{a};