sub alpha
{
   foreach(1..10) {
      print;
   }
}
sub beta
{
   for(my $i=10; $i>=1; $i--) {
      print 11 - $i;
   }
}