my %fruits;
$fruits{$_}++ for ( @fruits );

my ( $fruit, $count );
for ( $fruit, $count ) ( each %fruits ) {
    print "$fruit => $count\n";
}