if (defined $hash{$key} and do {
    $key
}->hash =~ /\w+/) {
    $hash{$key} = 'Numbers: ' . $hash{$key};
}