use Data::Dumper;
my @list = qw/ 1 1 1 234 234 3 5 5 2 7 6 3 6 8 4 /;
my %count;
$count{$_}++ foreach @list;
print Dumper \%count;
__END__
$VAR1 = {
          '6' => 2,
          '3' => 2,
          '234' => 2,
          '7' => 1,
          '2' => 1,
          '8' => 1,
          '4' => 1,
          '1' => 3,
          '5' => 2
        };