How about:

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

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