open(FILE,"$filename");
@lines = <FILE>;
close(FILE);

@lines = reverse sort(@lines);