#!/usr/bin/perl -w

open(INF,"db.txt");
@data = <INF>;
close(INF);

@sd = sort(@data);

...what do I use to remove duplicates...

open(OUTF,">outdb.txt");
print OUTF;
close(OUTF);