Should use perl var