#!/usr/bin/perl -w

use strict;
use warnings;
use diagnostics;

my @array = qw(MANGO APPLE GRAPES MANGO MANGO MANGO MANGO APPLES APPLES BANANA CORN APPLES);
my %hash;
foreach (@array)
{
    $hash{$_}++;
}

for my $key(keys %hash)
{
    print "$key => $hash{$key}\n";
}