print qq|$_ | for sort keys %{{ +map {$_->{type} => undef} @$data }};