my $end = pop @array;

   for (my $i = 0; $i < @array; $i++)    {


            if ($array[$i] =~ m/\D{1}(\D?\d+\D?\d*)\D{1}(\D?\d+\D?\d*)\D{1}/ )   {



                  $x1 = $2;
                  $y1 = $1;


            }

            if (($array[$i + 1] =~ m/\D{1}(\D?\d+\D?\d*)\D{1}(\D?\d+\D?\d*)\s*\D{1}/ ) || ($grads[$i+1] != $end))  {

                  $x2 = $2;
                  $y2 = $1;

            }

           else {

                 print "ohhh noooo <P>";

           }

   }