my $tile = $tiles[$rx][$ry][$bz][type];
if (!defined $tile || $$tile != $type_data[$tile_index])
{
    $changed = 1;
    $$tile = $type_data[$tile_index];
}