$myArray[$row] is a reference to an array, you seem to be adding it to the actual numbers in the columns. That's why the values are so high. You can simplify the algorithm by iterating over the values rather than indices: 
#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

my @content = (<DATA>);

my $no_of_seq = scalar(@content);

my @myArray;
for my $row (@content) {
    my @columns = split ' ', $row;
    push @myArray, \@columns;
}

say join "\t", $myArray[0][0], 'sum';
my $width = $#{ $myArray[0] };
for (my $row = 1; $row < $no_of_seq; $row++){
    print $myArray[$row][0], "\t";
    my $sum = 0;
    for my $col (@{ $myArray[$row] }[1 .. $width]) {
        $sum += $col;
    }
    say $sum;
}

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

[download]

Update: But, to compute a sum of a row, you don't need the other rows, so you can process the file line by line, no need to store it into an array. List::Util already exports the sum sub, no need to compute it yourself. 

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use List::Util qw{ sum };

<DATA>;  # ignore the first line;
say "GeneID\tSum";

while (<DATA>) {
    my @cols = split ' ';
    my $sum = sum(@cols[1 .. $#cols]);
    say join "\t", $cols[0], $sum;
}

[download]

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

In reply to Re: Query of multi dimentional array by choroba
in thread Query of multi dimentional array by shabird

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.