my $i;
for $i ( 0 .. 10 ) {
    last if <somecondition>;
    ...
}
my $x = substr $somestring, 0, $i;