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