#!/usr/bin/perl

use strict;
use warnings;

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

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