exhilaration tight loops on a bicycle tighter loops in Perl