Select Code to Download

#!/usr/bin/perl -w
use strict;
...
  });
}
__END__

$ ./testhashdel
Use of freed value in iteration at ./testhashdel line 27.

  athashleveldo($_, $n-1, $action) for values %$h;

  my @v = values %$h;
  athashleveldo($_, $n-1, $action) for @v;