perl Set-Infinite