use strict;
use A::B::C; #use your modules.  Pay attention to btrott's advice above on Exporter etc.
...

my $foo = new A::B::C;
$foo->the_problem("argle bargle"); # $foo->{_the_problem} now eq 'argle bargle'

print $foo->the_problem(); 	# prints "argle bargle"