for my $loop ( 1 .. length $_ ){ ## guaranteed not to infinity loop
}