undef %hash
%hash = (%hash, split /X/ 'fooXbar');
%hash = (%hash, split /X/ 'bishXbash');
foreach(keys %hash) {
   print "3: $_ = $hash{$_}\n";
}