$VAR1 = [
          bless( do{\(my $o = 10)}, 'SG4InvTypes::Subscriber' ),
          bless( do{\(my $o = 32)}, 'SG4InvTypes::Subscriber' ),
          bless( do{\(my $o = 53)}, 'SG4InvTypes::Subscriber' )
        ];