for(my $x = 0; $x <= 9; $x++) {
       for(my $y = 0; $y <= 9; $y++) {
           my $ttile = $MW->Photo(-file => "./tiles/brick.xpm");
           $canvas->createImage(32 * $x, 32 * $y, -image => $ttile);
       }
    }