$myhash{$v}=$_ while defined ($v=$_=pop@elements and y/_/ /);