sub print_data {
...
    # Dedup the data base on data in the string
    # Parent: http://www.perlmonks.org/bare/?node_id=104565
    # specific post: http://www.perlmonks.org/bare/?node_id=104602
    my $singleline=join(" ",@{$data{$host}{"$time:$event"}});
    $databefore+=length($singleline);
    $singleline=~s/((\S+)\s?)/$count{$2}++ ? '' : $1/eg;
    $dataafter+=length($singleline);

    print ${$fh} "$singleline\n";

...
}