Help for this page
use Data::Dumper; open(my $fh,">$file") or die $!; print $fh Dumper(\%uniques); close $fh;
sub iter { my $href = shift; my $level = shift; ... } iter(\%unique, 0);