Select Code to Download

use strict;
use warnings;
...
delete $h->{A};

print Dumper ($h);

$VAR1 = {
          'a' => {}
        };