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