%hash =  map { split( /X/, $_ ) } ( "fooXbar","bishXbash") ;

# look Ma, that works!
foreach(keys %hash){
  print "1: $_ = $hash{$_}\n";
}