#ex_06-2 #Learning Perl, Appendix A, Exercise 6.2 print "List of strings:\n"; chop(@strings = ); foreach (@strings) { printf "%20s\n", $_; }