>>135

use strict;
use warnings;

use Data::Dumper;

my @ar;
$ar[0] = [qw/牛乳 コーヒー牛乳 /];
$ar[1] = [qw/いちごミルク コーヒー牛乳 /];
$ar[2] = [qw/コーヒー牛乳 フルーツ牛乳 牛乳/];
$ar[3] = [qw/牛乳 コーヒー牛乳 /];
$ar[4] = [qw/牛乳 いちごミルク フルーツ牛乳/];
$ar[5] = [qw/コーヒー牛乳 フルーツ牛乳 /];

my %wc;
$wc{$_}++ for map { @{$_} } @ar;
print Dumper \%wc;

__END__

$VAR1 = {
'いちごミルク' => 2,
'フルーツ牛乳' => 3,
'牛乳' => 4,
'コーヒー牛乳' => 5
};