Help for this page

Select Code to Download

Select or download this
```
print "$value -> $key\n";
```

Select or download this

foreach my $key (sort { $HoH{0}{$a} <=> $HoH{0}{$b} } keys %{$HoH{0}} 
+) {
    my $value = $HoH{0}{$key};
    print "$value -> $key\n";
}