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