http://qs321.pair.com?node_id=575399


in reply to Assign (key, value) to a hash w/o clobbering hash

use Data::Dumper; $hash{bing} = 'bang'; for (qw/fooXbar bishXbash/) { @_ = split /X/, $_; $hash{$_[0]} = $_[1]; } print Dumper(\%hash);