use strict;
my $i=5;
print "the value of i outside the loop is $i\n";
do
{
   print"now i entered inside the loop \n";
   my $i=10;
   print "the value of i inside the loop is :$i\n";
   $i--;
}until($i<=0);