array sort in perl

join shbcf.ru