my %seen;
  foreach my $item ( @list ) {
    return error() if ( $seen{$item}++ );
  }