Help for this page

Select Code to Download

Select or download this

while (<FH>){
        my @t= split(',',<FH>);
....

Select or download this

while (<FH>){
        chomp;
        my @t= split(',',$_);