my @match = map {$_->{ident} eq 'bar' ? $_->{name} : ''} @{$test{sup}};
print "'$_'\n" for @match;