2586: my $found_cycles = 0; 2587 SOME_LABEL: 2588: while () 2589 {