perl -e'$t=do"unicore/Name.pl";%c=map{split/\t\t/}split(/\n/,$t);print "$_\n" foreach sort values %c'