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