#!/usr/bin/env perl
use strict;
use warnings;

my %grammar = (
    "quit"                  => "v_quit",
    "eat object"            => "v_eat",
    "eat the object"        => "v_eat",
    "shoot object"          => "v_shoot",
    "take object"           => "v_take",
    "give object to object" => "v_give",
);

my %foo = (
    "v_take"  => { find => 'takebit', },
    "v_shoot" => { pre  => 'pre_shoot', },
);