计算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;