my $sth = $dbh->prepare("SELECT MODULENAME, de, en, fr FROM t");
$sth->execute;
my $modules;
while (my $row = $sth->fetchrow_hashref) {
    for my $lang (qw/ de en fr /) {
        $modules->{ $row->{MODULENAME} }->{ $lang } = $row->{ $lang };
    }
}