Select Code to Download

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

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