#!usr/bin/perl5.8.8

use strict;
use warnings;

fileappendor();

sub fileappendor
{
my $fileno = 1;
my $outfile = "proteintable";

open (my $OUTFILE,">", $outfile);

while($fileno <= 152)
{
my $infile = $fileno."_FamDATA";
open (my $INFILE,"<", $infile);

	while(<$INFILE>)
	{
	print $OUTFILE $_;
	}

close ($INFILE);
$fileno++;
}
} #end of sub fileappendor