Add problem 7 perl brute force solution