perl读取文件

我是perl新手，现在有个读取文件的问题，想把文件的每一行读取出来，每一列的值都是变量放到后面的程序用，不知道该怎么做循环，求高手指教
附配置文件：
  equipname index index2 ip mip sip
 'E0030101' 'LN_DL_RT6_RJH' 'SEOS-6.1.4.5' 192.162.84.27 10.237.222.141 '192.162.84.27'
 'E0030102' 'LN_DL_RT7_RJH' 'SEOS-6.1.4.1p6' 192.162.83.26 10.237.222.129 '192.162.83.26'
 'E0030100' 'LN_DL_RT5_RJH' 'SEOS-6.1.4.1p6' 192.162.48.26 10.237.222.137 '192.162.38.27' 
 'E0030060' 'LN_SY_RT9_RJH' 'SEOS-6.1.4.1p6' 192.162.18.26 10.237.222.146 '192.162.18.26'
后面是个telnet的模块

#!/usr/bin/perl
#use strict;
#use warnings;
use Net::Telnet;
   
my $prompt = '/Domain:|:.+Administrator.>/'; #pattern
my $tnet=new Net::Telnet('Host'=>ip,'Timeout'=>20, 'Prompt'=>$prompt, 'Dump_Log'=>'SY07test.log');
$tnet->waitfor('Match'=>"/login:/");
$tnet->print("admin");
$tnet->waitfor('Match'=>"/password:/");
$tnet->print("pwd");
$tnet->waitfor('Match'=>"/index/");
$tnet->print("ping mip size 100");
$tnet->print("\n");
#$tnet->waitfor($prompt);
#$tnet->print("dir \\y\REPORTED");
my @output = $tnet->waitfor($prompt);
$tnet->print("exit");
$tnet->close();

对配置文件每行split + slice下就可以了