#!/usr/bin/perl
print "enter several strings on different lines then ctrl+D\n";
chomp( my @lines = <STDIN> );

print "1234567890" x5 . "012345\n";  #a "ruler" for output field width

printf "%20s\n"x@lines, @lines;