my %myHash;
($myHash{$_} = $_) =~ s/_/ /g for (@elements);