Select Code to Download

use strict;
use warnings;

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