for(1..3){
         $client = $listener->accept;
         my $thr = threads->create(\&start_thread, $client, ++$client_num);
         push(@clients,$client);
         push(@thrs,$thr);
         print 'Dump of @clients-> ',Dumper([@clients]),"\n";
         print 'Dump of @thrs-> ',Dumper([@thrs]),"\n";
}
##############################################

Dump of @clients-> $VAR1 = [
          bless( \*Symbol::GEN1, 'IO::Socket::INET' ),
          bless( \*Symbol::GEN2, 'IO::Socket::INET' ),
          bless( \*Symbol::GEN3, 'IO::Socket::INET' )
        ];

Dump of @thrs-> $VAR1 = [
          bless( do{\(my $o = '137520752')}, 'threads' ),
          bless( do{\(my $o = '138536664')}, 'threads' ),
          bless( do{\(my $o = '138556504')}, 'threads' )
        ];