...

package Problem;

{
   ...
   1;
}

package Main;

...

##</code><code>##

...

BEGIN {
   package Problem;
   ...
}

...

##</code><code>##

my $p1 = undef;
BEGIN
{
   $p1 = Problem->new('P11', 'P12', 'P13');
}