Select Code to Download

Argument "A" isn't numeric in numeric eq (==)

use warnings;
use strict;
...
C  1    G
T  1    A
T  1    A

my %conv = (
    A => 'T',
...
    my $len = length($letter);
    print "  $len\t$conv{$letter}\n";
}