Help for this page

Select Code to Download

Select or download this

my %hash2;
for my $val (sort values %hash2) {
...
    $hash2{$val} = 1;
  }
}