our( $GlobalMya , $GlobalMyb, $GlobalMyc ); $GlobalMya = MyA->new; $GlobalMyb = MyB->new($GlobalMya); $GlobalMyc = MyC->new($GlobalMya);