PERL: insertion_sort