Select Code to Download

#!/usr/bin/perl

...
foreach (sort keys %hash) {
  say "$_: min=" . min(@{$hash{$_}}) . ", max=" . max(@{$hash{$_}});
}

id1: min=1, max=25
id2: min=0, max=86
...
id4: min=1, max=119
id5: min=0, max=56
id6: min=29, max=345