I stumbled a bit around traversing the hash, but hopefully this helps. 
#!/usr/bin/perl

use File::Basename;
use Data::Dumper;

my %LANGUAGE;

foreach my $language_file ( <*.language> ) {
  my $basename = basename($language_file, qw( .language ));
  my $uc_basename = uc( $basename );

  open( FILE, $language_file ) or die "Unable to open $language_file!\
+n$!\n";

  $LANGUAGE{$uc_basename} = {};

  while ( <FILE> ) {
    chomp;

    my $hash = $LANGUAGE{$uc_basename};

    if ( /\$LANGUAGE{$uc_basename([^}]*)}\s*=\s*(.*)$/i ) {
      my $keyword = $1;
      my $value = $2;
       
      if ( $keyword ) {
         my @sub_hashes = split(/_/, $keyword); 
         
         # shift the first one off because it will be empty;
         shift @sub_hashes; 
         foreach ( @sub_hashes ) {
          $hash->{$_} = {} unless exists $hash->{$_};
          $hash = $hash->{$_};
          }
      }  
      $hash->{'value'} = $value;
    }
  }

  close( FILE ) or die "Oh no! COuldn't close $language_file!\n$!\n";
}

print Dumper( \%LANGUAGE );

[download]

In reply to Re: Perl Parsing Pedantics by Transient
in thread Perl Parsing Pedantics by snoopyac

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.