foreach (@temp)
   {
      sub($x0, $y0, $x1, $y1, @temp)
   }
}