sub refinemydata
   {  my $data = shift;
      &is_refined:return?&rerefine;}