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