local $_ = "I live!\n"; for $_ (1..100) { printf "\r%d", $_; last if $_ == 50; } print "$/The value of 'this' after the loop is $_$/";