use strict;

my %numbers;

while (<DATA>) {
	$numbers{$1}++ if /^(\d+)/;
}

print "$_\n" foreach keys %numbers;

__DATA__
123askdjha
1ad
asldhasd
asdklsd123
10
2fer