my %myhash;
my $v;
map { $v = $_; $v =~ s/_/ /g; $myhash{$_}=$v; } @elements;