Check out Perldoc -f open
The basic idea tho is:

# Untested
use strict;
use Net::Telnet
open(FH, "host_list_file") || die "Yikes $!";
while (<FH>) {
    # your telnet stuff here
}
[download]

Update
Don't forget to use strict;

HTH