perl Log-Any