What will this print? clever!

clever.pl

use strict;
use warnings;

my $count = 4;

while (1) {
    print "loop: " . (5 - $count) . "\n";

    no warnings 'void';
    $count-- xor next if $count;

    print "end\n";
    last if $count < 1;
}