#!/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";