Help for this page
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 } <>;