foreach my $line (@file)     {

             #  @array just contains certain values  computed so far            

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


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

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


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

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


            $equ1 = ($y2 * $y1);
            $equ2 = ($x2 * $x1);

            $equ3 = ($equ1 * $equ2);             
            push @good_nums, $equ3;

   }


 print "@good_nums"; 

}