use Modern::Perl; use List::MoreUtils qw(uniq); use Data::Dump qw(pp); my $data = { ... your array of hashes here ... }; my @names = uniq map { $_->{'type'} } @$data; pp \@names;