perl -e 'use Data::Dumper; $x = {a => "B"}; print Dumper $x; delete $x->{y}{2}; print Dumper $x;'
$VAR1 = {
          'a' => 'B'
        };
$VAR1 = {
          'y' => {},
          'a' => 'B'
        };