perl的简单变量