array sort in perl

welcome to shbcf.ru