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

##</code><code>##

$hash{"$ip.$ip3.$ip4"} = $t

##</code><code>##

my $base = (192 << 24) + (168 << 16);
foreach my $ip ($base .. $base+65535) {
    $t = Net::Telnet ...
    $t->open(...
    $hash{$ip} = $t;
}