#!/usr/bin/perl -w
print "Please enter an item (zero index please) : ";
chomp($item = <STDIN>);
print "I will now read in a list of strings and output the item.\n";
print "(You might need to use CTRL-D or CTRL-Z to stop the input.\n";
@list = <STDIN>;
print $list[$item];