sub process {
  my $query = shift;
  return unless $query; # first time $query will be undef
  ...
  # iterate through all the gi lines
  for my $gi_line (@{$query->{gi_lines}}) {
    if ($gi_line =~ m{\|ref\|}) { ... ref found ... }
  }
}