Help for this page

Select Code to Download


  1. or download this
    my %seen;
my @unique = grep {not $seen{$_}++} <FILE>;
chomp @unique;
  2. or download this
    my (%seen, @unique);
chomp( @unique = grep {not $seen{$_}++} <FILE> );