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