use feature 'say';
my $type;
for my $entry (@$VAR1) {
        if ( $entry->{type} ne $type ) {
                $type = $entry->{type};
                say $type;
        }
        say "\t$entry->{name} - $entry->{reference}";
}