$sec_hash = $base{$sec_hash}->{$cur_key};
                $sec_hash =~ s/\\\%//g;
                $sec_hash.='.hash';

($sec_hash = $base{$sec_hash}->{$cur_key} . '.hash') =~ s/\\\%//g;

#
# Die ini-Datei hat folgenden Aufbau:
# [Funktionsbereich]
# Initialisierungsbereich start_wert end_wert
#
[...]
my $tmp = ""; 
my $i = 0;
my $range = {};
if(! open(INI, "<".$inifile))
{
    &logit("Could not open $inifile! Exiting.");
    close(LOG);
    exit(5);
}
else {
    my @ini = grep { ! /^[#\s]/ } <INI>; close(INI);

    foreach(@ini) {
        chop($_);
        if($_ =~ /^\[(.*)\]$/) {
            $tmp = $1;
            $i = 0;
        }
        else {
            $_ =~ /^(.*)\s+(.*)\s+(.*)$/;
            $range->{$tmp}[$i] = [$1,$2,$3];
            $i++;
        }
    }
}
#
# Später dann der Zugriff:
#

foreach my $key ( keys %{$range} ) {
    foreach ( @{ $range->{$key} } ) {
        # do something with $_->[1]
        # do something with $_->[2]
    }
}
#
# Oder: $range->{'Initialisierungsbereich'}[1]
#