http://www.perlmonks.org?node_id=1027158


in reply to Get just the unique value

Use a hash instead: 
my %res = ();

for my $entry (@$data) {
     $res{$entry->{type}} = 1;
}
print join(',', sort(keys(%res)))."\n";

[download]

In Section Seekers of Perl Wisdom