$m[$p-1] += 10 * $m[$p];
$m[$p] = 0;