while (<DATA>) {
    chomp;
    my ($organism, @vals) = (split /\t/)[2..5];
    $freq{ $organism }++;