is there a way to find list of valid locales in my linux using perl?

This command will give you a list of locales:

locale -a

From a Perl script you can execute the same using

system("locale -a");