my $results;
my $type;
for my $entry (@$VAR1) {
        if ( $entry->{type} ne $type ) {
                $type = $entry->{type};
                push @$results, "$type\n";
        }
        push @$results,  "\t$entry->{name} - $entry->{reference}\n";
}