sub InSort
 {
     my $array = shift;
     my $value;
     my ($length1, $length2, $j, $i, $x, $y);
    $length1 = $#$array;
    $length2 = $#$array;
     
     

    for($i = 0; $i < $length;  $i++)
    {
        $x = $array->[$i];
        
         for($j= $length2; $j > 0; $j--)
         {
             $value = $array->[$j];
             print "y is $y.\n";
             if ($x < $value)
             {
                 $value = $x;
                 print "Min now $value\n"; 
             }
         }    
        
    } 
}
[download]