Select Code to Download

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

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

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

for (@hostnames) { print $_; }

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