use 5.16.2;
use warnings;

use Text::CSV_XS qw( csv );

my $AoH = csv (in => "file.tsv", sep_char => "\t", headers => "auto");

foreach my $row (@$AoH) {
    print $row->{"GO ID"}, $row->{ID};
    }