dumping: $VAR1 = \bless( \*Symbol::GEN1, 'IO::Socket::INET' );
>>before: $VAR1 = [
          bless( \*Symbol::GEN0, 'IO::Socket::INET' ),
          bless( \*Symbol::GEN1, 'IO::Socket::INET' )
        ];
0
>>after: $VAR1 = [
          bless( \*Symbol::GEN0, 'IO::Socket::INET' ),
          bless( \*Symbol::GEN1, 'IO::Socket::INET' )
        ];