perl -e '%h = map{split /X/} q{fooXbar}, q{bishXbash};
print qq{$_ -> $h{$_}\n} for jeys %h;'