my @data = &initialize_it_the_way_you_want() ;

my $total = @data ; # or scalar @data, explicitly
die "give me arguments!" unless $total ;

my %count ;
my %perc ;
map $count{$_}++,@data ;
map { $perc{$_} = $count{$_}/$total } keys %count ;

# Now you have recurrence counts on %count and
# percentages on %perc to do whatever you want.