http://www.perlmonks.org?node_id=575305


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

How about:

@X_delimited_strings = qw(fooXbar bishXbash); for (@X_delimited_strings) { @_ = split /X/; $hash{$_[0]} = $_[1]; }

You will have to accept a temp variable somewhere. You can use those already available to you (like $_ and @_) or declare your own.

--rjray