# Works, but needs double-split
$hash{(split /X/, "fooXbar")[0]} = (split /X/, "fooXbar")[1];
$hash{(split /X/, "bishXbash")[0]} = (split /X/, "bishXbash")[1];
foreach(keys %hash){
  print "1: $_ = $hash{$_}\n";
}

# Works, but needs redundent array
undef %hash;
@array = (split /X/, "fooXbar");
$hash{$array[0]} = $array[1];
@array = (split /X/, "bishXbash");
$hash{$array[0]} = $array[1];
foreach(keys %hash){
  print "2: $_ = $hash{$_}\n";
}

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