#!/usr/bin/perl use strict; my %record; $record{$_}++ while ( ); 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