perl if else if statement