main2();

sub main2{
print "Type first sentance: ";
chomp (my $sentence = lc<STDIN>);
print "\n";
my @words = split(" ", $sentence);  

print "Type second line: ";
chomp (my $sentence2 = lc<STDIN>);
print "\n";
my @words2 = split(" ", $sentence2);  

print "Type third line: ";
chomp (my $sentence3 = lc<STDIN>);
print "\n";
my @words3 = split(" ", $sentence3);  

my @string = join (" ",@words,@words2,@words3);  
print @string;

my @sortedwords = sort @string;
print "\n@sortedwords\n";

}