%programs = @{ $config->{programs} };
    for my $prog (values %programs) {
      my %param = @{ $prog->{parameters} };
      for my $name (sort keys %param){
       print $name, ': ', $param{$name},"\n";
      }
    }