while (my ($host, $value) = each(%rez)) {

    # More nested while loops

}