#!/usr/bin/perl
use strict;
use warnings;
my $count = 10;
do {
    print "$count\n";
    $count--;
    goto END_OF_LOOP if $count == 3;
}
while($count > 0);
END_OF_LOOP:
print "$count\n";