foreach(@elements) {
   $v = $_;
   $v =~ s/_/ /g;

   $myhash{$_} = $v;
}