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

我有一个数组

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字符串和值

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

找到值为\u 1的字符串\u 1 n次

发现字符串_1 n次，值为_2

字符串_2被发现n次，值为_3等

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

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