my $log = $provoutfile;
    print "Now Processing $log....\n";
    open LOG, "$log" or die "LOG $log: $!\n";

    $linecnt = 0;
    while (<LOG>) {
        chomp $_;
        $linecnt++;

        my @sortedlines = map { $_->[0] } sort { $a->[1] <=> $b->[1] }
        map { [$_, Time::Piece->strptime($_, '%a %b %d %H:%M:%S %Y')->epoch ] } @lines;
        $line = "";
        $linecnt = 0;
     }