This might get you started.

#!/usr/bin/perl

use strict;

my %record;
$record{$_}++ while (<DATA> );

print sort keys %record;

__DATA__
NCLEGEND-11-20
NCLEGEND-11-20
NCLEGEND-1-10
NCLEGEND-1-10
NCLEGEND-1-10
NCLEGEND-1-20
NCLEGEND-1-20
[download]