#ex_06-3a #Learning Perl, Appendix A, Exercise 6.3 print "Field width: "; chop($width = ); print "List of strings:\n"; chop(@strings = ); foreach (@strings) { printf "%${width}s\n", $_; }