No $hashref2 = $VAR2->[$k]; is not deprecated, and what warning did you get?

Perl uses different operators for comparing numbers or strings.    See perlop for details.

Also, I was thinking about this code in your program:

                   push @array, $k;
                # Sort the array now because we pushed the value in ar
+ray.
 
                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;
                            }
                        }
                    }
                }
[download]

You are adding one element to an array and then sorting the whole array using an algorithm that is O( N² ).    And even if you switched to Perl's built-in sort function:

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

that would at best be O( log N ).    However, you don't really need to sort the array, just insert $k in the correct place which would give you an O( N ) algorithm:

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