my %validLanguages = (
		"de" => "german",
		"en" => "english",
		"es" => "spanish",
		"fr" => "french",
		"it" => "italian",
		"ja" => "jap",
		"ko" => "korean",
		"ru" => "rus,
		"sv" => "WHATS THIS",
		"zh" => "WHATS THIS",
		"zh_TW" => "WHATS THIS"
		);

##</code><code>##


# returns any value if it is a valid list e.g...
# "de, en, fr, ja"
# return undef if it is not a valid list e.g...
# "monkish fr, en"
# a valid list will always be in the form...
# language,\slanguage,\slanguage....


sub isItJustAListOfLanguages{

    my %validLanguages = (
			  "de" => "german",
			  "en" => "english",
			  "es" => "spanish",
			  "fr" => "french",
			  "it" => "italian",
			  "ja" => "japanise",
			  "ko" => "korean",
			  "ru" => "russian",
			  "sv" => "WHATS THIS",
			  "zh" => "WHATS THIS",
			  "zh_TW" => "WHATS THIS"
			  );
    $textToTest = $_[0];
}