my $results = "Results: "; my $type; for my $entry (@$VAR1) { if ( $entry->{type} ne $type ) { $type = $entry->{type}; $results .= "$type
"; } $results .= "   $entry->{name} - $entry->{reference}
"; }