读取文件

有一个文件list.txt 如下
192.168.1.1        22
192.168.1.2        23
192.168.1.3        24
192.168.1.4        25
192.168.1.5        26
192.168.1.6        27
192.168.1.7        26
192.168.1.8        29
192.168.1.9        21

perl是否可以读入这个文件，每次读入一行循环，第一列赋值为$A 第二列赋值为$B

shell可以这样写
while  read A　B
do
……
done <list.txt

现在想写个批处理telnet ip 端口的perl但是怎样去读这个ip端口列表还不知道如何下手，请各位大哥指导下

open F, 'list.txt'
while (<F>) {
  chomp;
  ($a, $b) = split '\t', $_;
}
close F;