$|=1;
@strings = qw /hello good-bye/;

$ruler = "1234567890" x 6; # 60 characters fit nicely on the screen
print "$ruler\n";

foreach $e (@strings){     # for each string in the array
  printf "%20s\n",$e;      # do a nice formated print
}
# Of course this will not work if you enter strings
# which are longer than 20 characters
