use Modern::Perl;

my @numbers = map int(rand(100)), (1..1000);
my %count;

$count{$_}++ for @numbers;

say "$_ occurs $count{$_} time(s)" for sort {$a <=> $b} keys %count;