#!/usr/bin/perl
#abut.pl
#4/27/2000 created

#Author: Mafuyu Kitahara
#Purpose: abut two files column by column (priority for file1 on the left)
#Input: psylexN or the like
#Output: file1_file2

print "file1? = ";
chop($file1 = <STDIN>);

print "file2? = ";
chop($file2 = <STDIN>);

open (DATA1, "$file1");
open (DATA2, "$file2");
open (OUT, ">$file1.$file2");

#dump
chomp(@a = <DATA1>);
chomp(@b = <DATA2>);

#print loop
for ($i=0;$i<=$#a;$i++) {  
  print OUT "$a[$i]\t$b[$i]\n";
}