$Traps{"$Fields[6]"} = [ $Expiration,$Fields[2],$Fields[5],$Fields[7] ];

##</code><code>##

$Traps{$Fields[6]} = [ $Expiration, @Fields[­2,5,7] ];

##</code><code>##

    sub EXPIRE() { 0 }
    sub WHATEVER() { 1 }
    sub FOOBAR() { 2 }
    sub FILENAME() { 3 }

##</code><code>##

push @GrepList,$Traps{$tr­ap}[3] unless (($Traps{$trap}[0] < $Now && $Traps{$trap}[1]) || $trap eq "SIZE");

##</code><code>##

push @GrepList, $Traps{$tr­ap}[FILENAME]
    if  $trap ne "SIZE"
   and     ! $Traps{$trap}[WHATEVER]
        || $Now <= $Traps{$trap}[EXPIRES];

##</code><code>##

map { $MaxLen = length($_) if length($_) > $MaxLen } @GrepList;

##</code><code>##

for(  @GrepList  ) {
    $MaxLen = length($_) if length($_) > $MaxLen;
}

##</code><code>##

local( $/ )= \$BufferSize;