my $count = 1;
    while (my $x = $count) {
        print \$x, "\n";
        last if ++$count > 5;
    }