make_uniq(\%hashref); dd $hashref; sub make_uniq { my ($hr) = @_; $_ = [ uniq @$_ ] for values %$hr; }