Select Code to Download

Select or download this
$Traps{"$Fields[6]"} = [ $Expiration,$Fields[2],$Fields[5],$Fields[7] ];
Select or download this
$Traps{$Fields[6]} = [ $Expiration, @Fields[2,5,7] ];

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

Select or download this
push @GrepList,$Traps{$trap}[3] unless (($Traps{$trap}[0] < $Now && $Traps{$trap}[1]) || $trap eq "SIZE");

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

Select or download this
map { $MaxLen = length($_) if length($_) > $MaxLen } @GrepList;

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