#!/usr/bin/perl

use strict;
use warnings;

print "Enter some strings:\n";
my @lines = <>;

print 0..9 x 2, "\n";
foreach (@lines) {
        printf "%20s", $_;
}

##</code><code>##

$ ./ex05-02.pl
Enter some strings:
asdfasdfasdf
asdfa
asdfasdfasd
asdf
0123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899
       asdfasdfasdf
              asdfa
        asdfasdfasd
               asdf