Help for this page

Select Code to Download

Select or download this

#!perl -l

...
    search ($tmp, {%$partsLu}, [@$used, $part]);
  }
}