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