my %x = (a=>1, b=>2, c=>3);
  $_ *= 2 foreach values %x;