#!/usr/bin/perl
open(F1,"tax.pl");
while($line=<F1>)
{
	chomp $line;
	@arr=split(/"\n"/,$line);
	 print "@arr\n";
}
open(F2,"accno.pl");
{
while($line1=<F2>)
	{
	chomp $line;
	@arr1=split(/"\n"/,$line1);
	print "@arr1\n";
	}
}
 open(F3,"ptax.pl");
 while($line=<F3>)
 {
	 chomp $line;
	 @arr3=split(/"\n"/,$line);
	 print "@arr3\n";
 }