our $i;
for $i ($i ..10) {
    last if $i == 5;
}
print $i;