This works however. And it doesn't change @elements

@myHash{@elements} = map {join ' ', split '_'} @elements;
[download]