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

Plz help me