在perl中计算数组数组中的唯一值

Question

我有一个数组数组

push @fail_codes,[$r->[5],$row->[1]];

看起来像这样

STRING_1, VALUE_1

STRING_1, VALUE_1

STRING_1, VALUE_2

STRING_1, VALUE_3

STRING_2, VALUE_1

STRING_2, VALUE_1

STRING_2, VALUE_2

我事先不知道 FC 字符串和值。

我想做的是以我得到的方式计算项目

STRING_1 被发现 n 次，值为 VALUE_1

STRING_1 被发现 n 次，值为 VALUE_2

STRING_2 被发现 n 次，值为 VALUE_3 等

Answer 1

my %seen;
$seen{"$_->[0] was found %d times with value $_->[1]"}++ for @fail_codes;

printf("$_\n", $seen{$_}) for sort keys %seen;