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