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