Examples 7-8

#Learning Perl Appendix A, Exercise 3.2

print "Enter the line number: "; chomp($a = <STDIN>);

print "Enter the lines, end with ^D:\n"; @b = <STDIN>

print "Answer: $b[$a-1]";

#Learning Perl Appendix A, Exercise 3.3

srand;

print "List of strings: "; @b = <STDIN>

print "Answer: $b[rand(@b)]";