use Data::Dumper;
print Dumper(\%ini)."\n";

##</code><code>##

        push @slots, keys%{$ini{'$hostnames[$i}'}};
        push @ifindices, values%{$ini{'$hostnames[$i}'}};

##</code><code>##

for (keys(%{$ini{$hostnames[$i]}})) {
 push @slots,$_;
 push @ifindices,${$ini{$hostnames[$i]}}{$_};
}

##</code><code>##

for (@hostnames) { print $_; }

##</code><code>##

for my $Hostname (@hostnames) { print $Hostname; }