my @keywords = qw / angle offset fire torpedo /;
my @match = grep $_ =~ /^$word/ @keywords;