sub x 
{
  for my $q (1..10) 
  {
    print "$q\n";
  }
}

##</code><code>##

sub x 
{
  my @_forlist = (1..10);
  if (@_forlist)
  {
    do
    {
      my $q = pop @_forlist;
      print "$q\n";
    } 
    until ( not @_forlist );
  }
}