#!/usr/bin/perl –w
 open(INF,"db.txt");
 @data = <INF>;
 close(INF);
 @sd = sort(@data);
 for(@sd){ push @out, $_ if (not @out) or ($out[-1] ne $_); };
open(OUTF,">outdb.txt");
 print OUTF;
 close(OUTF);