my %h = qw( a 1 b 2 c 3 );
  map { $_ *= 4 } values %h;