#!/usr/bin/env perl

use warnings;
use strict;

my $count = 9;
my $i = 0;
while ($i<5) {
    next unless $count => 8;
    $i++;
}
print "end\n";