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