In the quest for Shorter and More Efficient:

my %myhash = map { $v=$_; y/_/ /; $_,$v } @elements;
[download]