Select Code to Download

my $hashvar = {
               emp => {},
...
&HashClean($hashvar);

print Data::Dumper->Dump([$hashvar],[qw (::hashvar)]);

$::hashvar = {
               'hemp' => {
...
               'tay' => [],
               'splay' => {}
             };

sub HashClean {
    my ($hashref) = @_;
...
    &HashClean($hashref) if $deletes;
    return $deletes;
}#sub