$t = Net::Telnet->new(...);
$t->open(...);
push @array, $t;