#!/usr/bin/perl -w
use strict;
use diagnostics;
if(-e "out.txt") {
	# complain about file.
}
my @out;
while(<>) {
	chomp;
	push @out, lc($_);
}
	# do stuff with @out:
@out = sort @out;

	# print it (to STDOUT for the moment)
print join("\n", @out);