That should work fine. You probably want to use \n rather than /n in your strings but I don't see anything that would break it. What problem are you having with it exactly?

One caveat: I'm not sure how to do it on win (^Z, I think) but you'd need to type an end of file after you enter your list in (one element to a line.)

-sauoq
"My two cents aren't worth a dime.";

Whoops, I am using \n rather than /n. Haha. Long day.

What happens is that nothing prints. Odly enough if I don't chomp the array, it prints: was: $list[$number-1] with the correct values, but nothing else in the print statement.

Update: Fixed tags in post.

That sounds like you are chopping $number rather than chomping, and getting the carriage return printed after the number without the linefeed.

In any case, to get it to print, it sounds like you might need to put a newline ("\n") on the end of your final print. (I say that because you are at least getting something if you don't chomp the array...)

-sauoq
"My two cents aren't worth a dime.";

@list = <>;
...
$number = <>;  <strike># this will never be reached (or won't read any
+thing)</strike>
[download]

It would be better -- both for the program logic, and for the user, too, I think -- to structure the program so that it reads the list from some file; the user may provide the file name as a command line argument, or, if you insist, he can enter the file name in response to a prompt from the script. In either case, the script gets the file name in a scalar variable, you open that file, and read its contents into @list; e.g.:

open(LIST, "<$ARGV[0]");
@list = <LIST>;
close LIST;
[download]

Then you prompt the user for a line number, and do what you want with that information. (Might be helpful, when prompting for that, to indicate how many lines are available to choose from.)

print "Pick a number between 1 and ",scalar @list,": ";
$line_no = <STDIN>;
chomp $line_no;
print "Contents of line # $line_no in $ARGV[0]:\n$list[$line_no-1]\n";
[download]

having terminated the input to the script on stdin, perl cannot read anything more.

Sorry, wrong answer.

Quoting from perldoc perlop:

The <> symbol will return "undef" for end-of-file only once. If you call it again after this, it will assume you are processing another @ARGV list, and if you haven't set @ARGV, will read input from STDIN.

You can give it an end-of-file as many times as you want. If you keep going back and using <> afterwards, it'll read from stdin again. But don't take my word for it; just give it a whirl...

perl -e 'while(1){ print for <> }'
[download]

Type a few lines, ^D, wash, rinse, repeat.

-sauoq
"My two cents aren't worth a dime.";

Thank you for your input.

Two things.

1)There is no challenge with EOF as I'm the only one running the script.

2)The challenge is with the final print statement and why it does not print as expected.

Other than that, thank you very much for the information.

I know this is a very simple script, but it is just an example as to describe the problem I have been experiencing with the print function.