Select Code to Download

use Data::Dumper;
%hoh = (
...
print "\n\nAfter delete:\n";
print Dumper \%hoh;
print "$a deleted!" if not exists $hoh{$a}; 

Before delete:
$VAR1 = {
...
                     }
        };
item2 deleted!