$ perl6 -e 'for 1..Inf { .say; last if $_ == 5 }'
1
2
3
4
5