use strict;
use warnings;
use Data::Dumper;
use feature qw/ say /;
my $string;
# your code here to build a complex string
say Dumper( $string );