my %fruit_counts;
foreach my $fruit(@fruit_list) {
  $fruit_counts{$fruit} = $fruit_counts{$fruit} + 1; #lhand for '++'
}

foreach my $fruit(keys %fruit_counts) {
  print "$fruit => ", $fruit_counts{$fruit}, "\n";
}