Help for this page

Select Code to Download


  1. or download this
    undef %saw;
$saw{$_}++
  for @in;
@out = keys %saw;
  2. or download this
    undef %saw;
@saw{@in} = (1) x @in;
@out = keys %saw;