for ($animal)
    {
        /camel/     and do Humps(2), last;
        /dromedary/ and do Humps(1), last;
    }