Select Code to Download

use warnings;
use strict;
...
    last quit if $value == 5;
    print "$value\n";
}

1
Exiting subroutine via last at noname1.pl line 11.
...
3
4
Exiting subroutine via last at noname1.pl line 11.