(add shebang to taste)
use strict;
use warnings;

open(FILE,"file.txt");
my @Records = <FILE>; 

@Records = sort {$a cmp $b} @Records;

for my $record(@Records) {
	print "$record \n";
}