perl实现基本的排序算法

use Data::Dumper;

#插入排序

sub insert_sort{
    my (@arr) = @_;
    my $n   = $#arr+1;
    my $tmp;
    my $i;
    my $j;
    if($n == 0 || $n == 1)
    {
        return "count: $n\nno need to sort.\n";
    }
    for($i = 1; $i < $n; $i++){
        $tmp = $arr[$i];
        for($j = $i-1;$j>=0 && $arr[$j]>$tmp;$j--){
            $arr[$j+1] = $arr[$j];
        }
        $arr[$j+1] = $tmp;
    }
    return @arr;
}

#选择排序

sub select_sort{
    my (@arr) = @_;
    my $n     = $#arr+1;
    my $i, $j, $k;
    my $tmp;
    if($n==0 || $n ==1){
       return "count: $n\n no need to sort.\n";
    }
    for($i = 0; $i