PERL: Insertion Sort