use strict;
use warnings;
use Regexp::Common;

my %numbers;
open my $fh, '<', 'numbersFile.txt' or die $!;

while (<$fh>) {
	$numbers{$1}++ while /($RE{num}{real})/g;
}

close $fh;

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