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