@hash{ map $array[$_], grep !($_ & 1), 0 .. $#array } = map $array[$_], grep $_ & 1, 0 .. $#array;