Code to find nth largest number in an array
- by user136104
I have written following code in perl
#!/usr/bin/perl
@array = (3,6,8,1,2);
my $second_largest = 0;
my $largest = 0;
for (@array)
{
   if($_ > $largest)
   {
       $second_largest = $largest;
       $largest = $_;
   }
   if($_ > $second_largest && $_ < $largest)
   {
        $second_largest = $_;
   }
}
print "Second largest::".$second_largest;
print "largest::".$largest;
But I need a general code to find out "Nth" largest and smallest number of an array
Please help me