Add perl inner variable