$a = { map { $val = some_derivation($_) ? ( $_ => $val ) : () } qw(a b c) };