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

##</code><code>##

use strict;
use Data::Dumper;
my %count;

my @status = ("Applied", "Enrolled", "Admitted", "Applied", "Enrolled");;

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