Help for this page
$hash{$_}++ for @array;
use strict; use warnings; ... print Dumper \@fruit; print Dumper \%fruit;