Actions

phonenumber : name prefix number
    {
        my $prefix = $item{prefix};
        if ($prefix == 'cell') {
            # ignore cell phones
        }
        else {
            Phone::DB::store($item{name}, $item[3]);
            print "Stored ($item{name}, $item{number})\n";
        }
        $return = $prefix;
    }

• Actions can contain arbitrary perl code
• Some special variables are defined, @item, %item
• Production succeeds if return value is defined