use List::Util qw( max );

my %counts;
++$counts{$_} for @a;
my $max_count = max values(%counts);
my @max_values = sort { $a <=> $b } grep { $counts{$_} == $max_count } keys(%counts);