perl Number-Format