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