perl heuristics