Help for this page

Select Code to Download

Select or download this

use Modern::Perl;

...
}

say "($_, $pairsHash{$_})" for sort { $a <=> $b } keys %pairsHash;

Select or download this

(0, 82)
(1, 50)
...
(7, 93)
(8, 2)
(9, 22)