tie %r2l, $twowayhash, "R2L"; # right to left
tie %l2r, $twowayhash, "L2R"; # left to right