my ($match) = 
  map  { $_->{name} } 
  grep { $_->{ident} eq 'bar' } 
  @{ $test{sup} };