Select Code to Download

#!/usr/bin/perl -w
use strict;
...
#{
#  jetsons => { "his boy" => "elroy", lead => "george", wife => "jane"
+ },
#}

change:
delete $HoH{$TV_show} if $HoH{$TV_show} == $href1;
to:
$HoH{$TV_show}={} if $HoH{$TV_show} == $href1;