perl loop

welcome to shbcf.ru