不使用$做1/2，因为perl下经常要$，改用@。