#untested
   my @selected = $canvas->find('withtag', 'in_polygon');
   foreach(@selected){  $canvas->delete($_); }