use strict;
use warnings;

my @numbers = (1..100);
my %count;

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

print "$_ occurs $count{$_} time(s)\n" foreach sort { $a <=> $b } keys %count;