Select Code to Download

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

...
foreach(keys %hash){
  print "1: $_ = $hash{$_}\n";
}