perl 공부중인데요.

use strict;

my $sFile = "Input/example003.txt";

open (in, $sFile) or die;
my $i=0;

while (my $sLine = ){
$sLine =~s/\n//g;
$sLine =~s/\r//g;




$i=$i+1;
print $i."-------------------------------------\n";

my @aLine = split("\t", $sLine);
for (my $j=0; $j<4 ; $j++) {


print $aLine[$j]."\t";
}
print "\n";

}

close (in);

이러한 코드가 있는데요.. 여기에 0번쨰 라인에 글씨를 첨가하구 싶은데..
어떻게해야될지 모르겠어요,, 도와주세요..