#ex_03-3 #Learning Perl Appendix A, Exercise 3.3 srand; print "List of strings: "; @b = ; print "Answer: $b[rand(@b)]";