while (my ($fileh, $repoch) = each(%radar)){        
    if ($ltgepoch == $repoch) {
        ...    
    }
}