#!/usr/bin/perl

@words = ();

print "Enter some words\n";

$numOfWords=5;
$count=0;
while ($count<$numOfWords) {
	$word = <>;
	chomp $word;

	push @words, $word;
	$count++;
}

foreach $w (sort @words) {
	print "$w\n";
}

print "\n";