In place of

use constant IP => 0; 
use constant AUTH => 1; 
use constant DATE => 2; 
use constant REQUEST => 3; 
use constant STATUS => 4; 
use constant BYTES => 5; 
use constant REFERER => 6; 
use constant UA => 7; 
use constant METHOD => 8; 
use constant URI => 9;
[download]

you can put this (after installing enum):

use enum qw(IP AUTH DATE REQUEST STATUS BYTES REFERER UA METHOD URI);
[download]

Much nicer and less chance of making a mistake.

-- Randal L. Schwartz, Perl hacker