# ex_06-4 # Learning Perl on Win32 Systems, Exercise 6.4 print "Field width: "; chomp($width = ); print "List of strings:\n"; chomp(@strings = ); foreach (@strings) { printf "%${width}s\n", $_; }