#!/usr/bin/perl -w
#
#  example2.10.pl
#
print "Enter several strings followed by ENTER after each string.\n";
print "When you are done, type <ctrl>-d to finish.\n";

@a = <STDIN>;
chop( @a );
print "The output...\n";
for ($i=0; $i < @a ; $i++) {
	print "You entered $a[$i].\n";
}