my %myhash;
foreach (@elements) {
  my $v = $_;
  $v =~ tr/_/ /;
  $myhash{$_} = $v;
}