perl Test-Number-Delta