for (values %$HASH1) { my %seen; $_ = [ grep { ! $seen{$_}++ } @$_ ]; }