#!/usr/bin/perl
use strict; 
use warnings;
use diagnostics;
my @out;		
my $num = scalar(@ARGV); 
if (-e "out.txt"){
print "Please move or rename out.txt\n";
exit 0;
}
for (my $i = 0; $i < $num; $i++) {
open (FH, "$ARGV[$i]") || die "Cant open: $!";
while (<FH>) {
push (@out, lc);	
}
close FH || die "Cant close: $!";
}
print sort @out