project euler #12 in perl ( brute force )