Help for this page

Select Code to Download

Select or download this

my %seen;
my @data = grep { chomp; not $seen{(split /\|/)[0]}++ } <DATA>;