use List::AllUtils qw( count_by );
%frequencies = count_by { $_ } LIST;