use strict;

my %h = ( a => 10, b => 20 );
my $m = 3;

$h{$_} *= $m for keys %h;
[download]