push(@a, $1) if ($line =~ /(GO:\d+)/);