use strict;
use warnings;
use Data::Dumper;

my $data = {
    data => 'hello',
    complicated => {
        version => 1,                                                 
        type => 'struct',
    },
    req => 'Submit'
};

print "Contents of \$data:  ", Dumper($data), "\n";

##</code><code>##

Contents of $data:  $VAR1 = {
          'req' => 'Submit',
          'complicated' => {
                             'version' => 1,
                             'type' => 'struct'
                           },
          'data' => 'hello'
        };