perl实现的插入排序

    学习perl中，写了一个插入排序：

 

#!/usr/bin/perl -w

use strict;
sub insertSort
{
        my ($i, $j, $key);
        for ($i = 1; $i < scalar(@_); $i++)
        {
                $key = $_[$i];
                $j = $i - 1;
                while (($j >= 0) && ($_[$j] > $key))
                {
                        $_[$j+1] = $_[$j];
                        $j--;
                }
                $_[$j+1] = $key;
        }
}

my @arr = (10, 21, 2, 1, 3, 45, 2, 932, 32, 27, 86, 65, 576, 434, 76753);
print "@arr\n";
print "After\n";
insertSort(@arr);
print "@arr\n";