#!/usr/local/bin/perl -w

use strict;
use Data::Dumper;

{
   my %prochash = (-a => {-a1 => 1, -a2 => 2}, -b => 2, -c => 'This is a test');

   my $d = new Data::Dumper ([\%prochash], [qw(prochash)]);
   print $d->Dump ();
}

##</code><code>##

$prochash = {
              '-b' => 2,
              '-c' => 'This is a test',
              '-a' => {
                        '-a2' => 2,
                        '-a1' => 1
                      }
            };