my %h = qw/a 1 b 2 c 3/;
my $something = 2;

# multiply one element
$h{a} *= $something;

# multiply all elements
for ( values %h ) {
  $_ *= $something;
}
[download]