Select Code to Download

select item, count(*)
from mytable
group by item

use strict;
use Data::Dumper;
...

$count{$_}++ for @status;
warn Dumper \%count;