从哈希Perl内的数组中获取唯一的值列表

我有一个包含数组列表的哈希,我必须从该数组中获得一个唯一的列表。但当我试图识别时,我没有得到任何错误或唯一的列表。

注:我不想使用任何模块 .

下面是具有数组的哈希的示例结构:

'15445' => { 'str' => {
                        'TOKEN' => [
                           'HC',
                           'HC',
                           'HC',
                           'HC',
                           'HC',
                           'HC'
                            ]
                }
        }

如何从数组中获取唯一的值列表 TOKEN

foreach my $id (keys %$client) {
    my @unique_srp_id;
    @unique_srp_id = uniq($hash->{$id}->{str}->{TOKEN});
    print @unique_srp_id;
}

sub uniq {
    my %seen;
    grep !$seen{$_}++, @_;
}

有人能告诉我我在这里做错了什么吗?