#!/usr/bin/env perl

use strict;
use warnings;
use autodie;

use constant {
    ID      => 0,
    SYMBOL  => 1,
    GO_ID   => 5,
    GO_NAME => 6,
};

my $file = './pm_1076856.tsv';
my %go_hash;

open my $fh, '<', $file;

while (<$fh>) {
    next if $. == 1;
    my @cols = split /\t/;
    $go_hash{$cols[SYMBOL]}{$cols[ID]}{$cols[GO_ID]} = $cols[GO_NAME];
}

use Data::Dump;
dd \%go_hash;