Set my $keywords = set <if for unless while>; # create a set sub has-keyword(*@words) { for @words ->…