while (my ($k, $v) = each %hash) {
    $hash{ $k . 'a' } = 1;
}

foreach my $k (keys %hash) {
    $hash{ $k . 'a' } = 1;
}