#!/usr/athena/bin/perl
while(<>){
chop;$len=length($_);$maxlen=($len>$maxlen)?$len:$maxlen;
@left=(@left, $_);}

while(<>){
chop;@right=(@right, $_);}

print "--------------------------------------------------------\n";

foreach $line (@left) {
  $len=length($line);
  $rline=$right[$cnt++];
  $rem=8+$maxlen-$len;
  print $line," "x$rem;
  print $rline,"\n";
}