use Data::Dumper qw(Dumper);

my $data = {
        args => '',
};

$data->{args}->{stuff} = 'bother';

print Dumper($data);

print "The value is ", $data->{args}->{stuff}, "\n";