Select Code to Download

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);