perl hacks