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