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