Select Code to Download

push @{ $config->{groups}->{$last_group} }, $line;

use Data::Dumper;

...
push @{ $config->{groups}->{$last_group} }, $line;

print Dumper $config;

$VAR1 = {
          'groups' => {
...
                                     ]
                      }
        };