#!/usr/bin/perl
use strict;
use warnings;

open (INFILE, "inputfile.txt") or die $!;
open (OUTFILE, '>', "sorted.txt") or die $!;

foreach (sort <INFILE>){
	print OUTFILE $_;
}

close(OUTFILE);
close(INFILE);
exit;