my @match = map {$test{sup}[$_]{ident} eq 'bar' ? $test{sup}[$_]{name} : 'KA'}
    (0.. scalar @{$test{sup}} - 1);
print "@match \n"; # KA bardame