自己一些perl的练习和实现