#!/usr/bin/perl -w
use strict;

# Asks for input of three words, printing each as it's entered

my ($word_count, $word);
for ( $word_count= 1; $word_count < 4; ++$word_count) {
# $word_count begins at 1
                    # So long as word_count is less than 4, do what follows
                                     # Increment $word_count by 1 each iteration
$word = <STDIN>;          # STDIN = Standard input = keyboard
chomp $word;
print $word, "\n";
}