my $tai_val  = sprintf "%10s: %.7f\n", $seq->id, $tai;
my $CAI_val  = sprintf "%10s: %.7f\n", $seq->id, $CAI;
my $encp_val = sprintf "%10s: %.7f\n", $seq->id, $encp;