my (%r) = map { $_ => $f{$_} } $left .. $right;