Find highest number per "number range"

# Jeweils größte Nummer pro "Nummernkreis" in einer Liste
# Wir spalten die letzten sechs Ziffern der Zahl ab und definieren den Vorderteil als "Nummernkreis"
# Pro "Nummernkreis" geben wir den größten Wert in der Zahlenliste des Inputfiles aus

my %nr = ();

# "Nummernkreis" := die letzten sechs Ziffern entfernen
use constant MOD => 1000000;

foreach my $line (<DATA>) {
   my ($number,$div) = (int $line, int $line / MOD);
   $nr{$div} = $number unless exists $nr{$div} and $nr{$div} > $number;
}

print sort map "$_\n", values( %nr );

__DATA__
99001631
925005633
99001637
920022058
99001616
915084382
915084394
915084395
99001621
920024923
925005638
925005637
99001662
920027776
920030232
99001655
915084389
915084386
915084398
925005635
925005641
915084397
915084373
915084384
920020568
925005635
925005630
915084389
920029983
915084380
99001641
915084388
99001595
925005634
920028403
920024094
920036295
925005626
99001669
920039640
925005643
915084383
920020910
915084385
920026400
915084387
925005623
925005620
920019711
99001620
925005624
920028934