my $bxScaled = $bx * 16;
my $byScaled = $by * 16;

for my $x (0 .. 15) {
    my $xScaled = 16 * $x;
    
    for my $y (0 .. 15) {
        # this calculates the tile index we are currently at,
        # using the x and y coords in this block
        my $tile_index = $y + $xScaled;

        # this calculates the real x and y values of this tile
        my $rx = $bxScaled + $x;
        my $ry = $byScaled + $y;

        # insert type data into the internal map array and
        # note that there was change in this block if applicable
        my $tile = $tiles[$rx][$ry][$bz][type];
        if (!defined $tile || $$tile != $type_data[$tile_index])
        {
            $changed = 1;
            $$tile = $type_data[$tile_index];
        }
    }
}