my $max1;
   my $max2;
   my $min1;
   my $min2;
   my $i;

##</code><code>##

my ($max1, $max2, $min1, $min2, $i) = (0,0,0,0,0, );

##</code><code>##

   for($i=0;$i<$len-1;$i++)

##</code><code>##

for(0 .. scalar @x -1)

##</code><code>##