$hash{$_}++ for @array;

##</code><code>##

use strict;
use warnings;
use Data::Dumper;

my @fruit = qw(
      MANGO APPLE GRAPES MANGO MANGO MANGO
      MANGO APPLES APPLES BANANA CORN APPLES
);

my %fruit;
$fruit{$_}++ for @fruit;

print Dumper \@fruit;
print Dumper \%fruit;