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