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