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

##</code><code>##

  my %seen;
  $seen{@list} = (1) x @list;
  foreach my $item ( @list2 ) {
     return error() if ( $seen{$item} );
  }