for my $key (sort keys %hash) {
    if ($key eq $verb) {
        $hash{$key} = $verb;
        last;
    }
}