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";