Not sure what your problem is, offhand, but I cleaned up your code a little bit and through in some sanity checking that might help:

my ( $level, $computer, $iod, $comment, $min_value, $min_time, $max_va
+lue, $max_time ) = split ',',$_;

if ( exists $CONFIG{ $computer } and
     exists $CONFIG{ $computer }{ iod } and
     exists $CONFIG{ $computer }{ iod }{ $iod } and 
     exists $CONFIG{ $computer }{ iod }{ $iod }{ value } ) {
    my $value = $CONFIG{$computer}{iod}{$iod}{value};
    if ( $value !~ /\D/ ) {
        if (  $value < $min_value ) {
            $min_value = $value;
            $min_time = "$hour:$min";
        } elsif ( $value > $max_value ) {
            $max_value = $value;
            $max_time = "$hour:$min";
        }
        print LOG "$level,$computer,$iod,$comment,$min_value,$min_time
+,$max_value,$max_time,$value,$hour:$min\n";
    } else {
        warn "Computer: $computer iod: $iod had the following value in
+ the log:  $value";
    }
} else {
    # have some appropriate warnings for the missing hash element
}
[download]

Cheers,
Ovid

Vote for paco!

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.