Select Code to Download

$singleton->{xml_filename} = $_[0];
$singleton->{hostlist}     = \@hostlist;

Dancer->new;     # invocant is "Dancer"
$obj->dance;     # invocant is $obj

my @components = @{ $config->{host}->{component} };
foreach (@components)
{
   push @hostList, $_->{component_name};
}

push @hostList,
   map { $_->{component_name} }
   @{ $config->{host}->{component} };

{
    package MyConfig;
...
my @hostlist = @{ $config->hostlist };

print "@hostlist";