Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...

++$values{$_} for @nums;
print join "\n", map{"$_: $values{$_}"} sort {$a <=> $b} keys %values;

Select or download this
```
10: 2
15: 1
...
30: 1
33: 2
40: 2
```