sub equals {
        my ($str, $num) = @_;
        
        my %lut = (
            'one'   =>  1,
            'two'   =>  2,
            'three' =>  3,
            ...
        );
        
        if ($num == $lut{ $str }) {
            return 1;
        } else {
            return 0;
        }
    }