%tmphash = map { split /X/ } "fooXbar", "bishXbash";
@hash{keys %tmphash} = values %tmphash;