foreach my $name (@{ $heap->{cfg}->{devices} }) { #### devices => [ 'ip', 'name', ]