Select Code to Download

use strict;
use warnings;
...

print "Number: $_\tCount: $numbers{$_}\n"
  for sort { $a <=> $b } keys %numbers;

12.7 abce -3.14 21
This is a line with 8 words in it.
10000 is a big number.
Looks like 21 and 12.7 again.
5 + 7 = 12

Number: -3.14    Count: 1
Number: 5    Count: 1
...
Number: 12.7    Count: 2
Number: 21    Count: 2
Number: 10000    Count: 1