use Debug::Filter::PrintExpr;
...
my $some_var = 'some content';
my @array = qw(this is an array);
my %hash = (key1 => 'value1', key2 => 'value2');

#${$some_var}
#@{@array}
#${$array[3]}
#%{custom_label: %hash}

##</code><code>##

line 28: $some_var = 'some content'
line 29: @array = ('this', 'is', 'an', 'array')
line 30: $array[3] = 'array'
custom_label: %hash = ('key2' => 'value2', 'key1' => 'value1')