perl: fixed namespace and if .. elsif