push @array, $k;
                # Sort the array now because we pushed the value in array.
 
                my $srt;
                for (my $s=0;$s<@array; $s++)
                {
                    for (my $r=0;$r<@array;$r++)
                    {       
                        if ($s ne $r)
                        {
                            if($array[$s]<$array[$r])
                            {
                                
                                $srt=$array[$s];    
                                $array[$s]=$array[$r];  
                                $array[$r]=$srt;
                            }
                        }
                    }
                }

##</code><code>##

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

##</code><code>##

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