perl problem 2