use strict;
use warnings;

##</code><code>##

my @data = get_data(); # or however you get them
my %count;
foreach my $datum (@data) {
    ++$count{$datum};
};
foreach my $item_count ( values %count ) {
    $item_count *= 100/@data;
}