my $kv1 = 'fooXbar';
my $kv2 = 'bishXbash';

@hash{ keys %$_ } = values %$_
    for { map { split /X/ } $kv1, $kv2 };
[download]

Don't be fooled by the for loop: it only iterates once; it's only there to avoid the explicit temporary variable (hash).