GeneID	Tp1	Tp2	Tp3		
ALA1	10	12	11		
THR8	57	99	12		
HUA4	100	177	199		
ABA5	2	5	10


##</code><code>##

my @content = (<FH>); 
close(FH);

my $no_of_seq = scalar(@content);

my @myArray;
foreach my $row (@content) {
    my @columns = split(/\s+/,$row);
    push(@myArray,\@columns);
    # print "@columns";
}
for($row = 0; $row < $no_of_seq; $row++){
		for($col = 0; $col < $no_of_seq; $col++){ 
			print($myArray[$row][$col], "\t");
}
print("\n"); 

}


##</code><code>##

for($row = 0; $row < $no_of_seq; $row++){
		for($col = 0; $col < $no_of_seq; $col++){ 
			$sum = $myArray[$row][$col] + $myArray[$row];
			print($sum, "\t");
}


##</code><code>##

140526414289424	140526414289424	140526414289424	140526414289424	140526414289424	
140526414212840	140526414212850	140526414212852	140526414212851	140526414212840	
140526414213296	140526414213353	140526414213395	140526414213308	140526414213296	
140526414288368	140526414288468	140526414288545	140526414288567	140526414288368	
140526414313944	140526414313946	140526414313949	140526414313954	140526414313944