Select Code to Download

    my (undef, @col) = split /\t/, <>; # Column names
    my %prob_map;
...
__END__
AAC to AAA = 0.011
AAA to AAC = 0.01506

    my @col   = split /\t/, <>; # Column headings
    my @lines = map { my %l; @l{@col} = split /\t/; \%l } <>;