How can i put this in my script ?

If your data is held in the form of a hash (not a hash reference), e.g.

my %hash = (
  'Alabama' => [
    qw(Andalusia Anniston Clanton Eufaula Auburn Bessemer
      Eufaula Auburn Bessemer)
    ],
  'California' => [ qw(Barstow Barstow) ],
  'Georgia'    => [ qw(Darien) ],
  'New York'   => [
    'Coney Island', qw(Amsterdam Beacon Becon), 'Coney Island',
    ],
  );
[download]

the following works (tested):

make_uniq(\%hash);
dd \%hash;
[download]