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