If you aren't bound to your list of IP/countries, you can try with Geo::IP.

BTW, practice makes perfect; I learned Perl this way, building small utilities.

Happy working, Valerio