Select Code to Download

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

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