Select Code to Download

                   push @array, $k;
                # Sort the array now because we pushed the value in ar
+ray.
...
                        }
                    }
                }

@array = sort { $a <=> $b } @array, $k;

my $index = 0;
++$index while $k >= $array[ $index ];
splice @array, $index, 0, $k;