while (<LANGUAGES>) {
   chomp;
   my ($key, $value) = split /,\s*/;
   $lang_dev{$key} = $value;
}