c:\@Work\Perl\monks>perl -wMstrict -le
"use List::MoreUtils qw(uniq);
 ;;
 use Data::Dump qw(dd);
 ;;
 my $hashref = {
   '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',
     ],
   };
 ;;
 make_uniq($hashref);
 dd $hashref;
 ;;
 ;;
 sub make_uniq {
   my ($hr) = @_;
   ;;
   $_ = [ uniq @$_ ] for values %$hr;
   }
"
{
  Alabama    => [
                  "Andalusia",
                  "Anniston",
                  "Clanton",
                  "Eufaula",
                  "Auburn",
                  "Bessemer",
                ],
  California => ["Barstow"],
  Georgia    => ["Darien"],
  "New York" => ["Coney Island", "Amsterdam", "Beacon", "Becon"],
}