for my $parm (sort keys %{ $$VAR1{cmd}{parameter} } ) {
    print "$parm\n";
    print "\tCycle:",$$VAR1{cmd}{parameter}{$parm}{cycle},"\n";
    print "\tCommand:\n";
    for my $cmd ( @{ $$VAR1{cmd}{parameter}{$parm}{command} } ) {
	for my $key ( sort keys %{$cmd} ) {
	    print "\t\t$key: ",$$cmd{$key},"\n";
	}
	print "\n";
    }
}