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