$results{$length}= "\nQURY: $query\nSIZE: $length\nGINO: $gino\n ...";

##</code><code>##

if ( not exists $result{$length} ) {
  $results{$length}= "\nQURY: $query\nSIZE: $length\nGINO: $gino\n ...";
}

##</code><code>##

foreach my $text (values %results) {
  print OUT $text
}