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

##</code><code>##

    SCALAR(0x80e4aa8)
    SCALAR(0x80e4aa8)
    SCALAR(0x80e4aa8)
    SCALAR(0x80e4aa8)
    SCALAR(0x80e4aa8)