Select Code to Download

#!/usr/bin/perl
use warnings;
...
THR8    57    99    12
HUA4    100    177    199
ABA5    2    5    10

#!/usr/bin/perl
use warnings;
...
    my $sum = sum(@cols[1 .. $#cols]);
    say join "\t", $cols[0], $sum;
}