for (split /\s+/, $6) {
            $results{$ts}++ if uc $_ eq uc $word;


for $ts (sort { $a <=> $b } keys %results) {
    ### Start date / time (00)
    $d1 = [localtime($ts)];
    $d1 = $months[$d1->[4]] . sprintf(' %02d %02d:%02d:%02d',
              $d1->[3], $d1->[2], $d1->[1], $d1->[0]);