sub also_correct { @{ ( map { @$_ ? $_ : [ list1() ] } [ list0() ] )[0] } }