I could almost write a book; I wouldn't say the code I maintain is downright *horrible*, because it does get the job done, and it does a remarkably complex task. Also, the code author learned Perl as she developed this working code. Quite an impressive feat, IMO.

One part of this large system (of legacy code) I maintain is replete with globals, some of which get set in various subroutines, not a package in sight, very little thought given to code re-use, and 30-line subs that do things that a routine like

sub percent {
    my ($num, $denom) = @_;
    $denom > 0 ? sprintf("%2.1f%%", ($num/$denom) *100) : "00.0%";
}
[download]

Philosophy can be made out of anything. Or less -- Jerry A. Fodor