sub manic {
     my $x = 0;
     for (0..50)
     {
         $x++;
     }

     print $x;
}