11 lines
258 B
Perl
11 lines
258 B
Perl
foreach ( 1 .. 10 ) {
|
|
|
|
if ( $_ == 5 ) {
|
|
$number = $_; # store current value before loop ends
|
|
last; # jump to end of foreach structure
|
|
}
|
|
|
|
print "$_ ";
|
|
}
|
|
|
|
print "\n\nUsed 'last' to terminate loop at $number.\n"; |