my @RecLine=split (/;/) ;
        my @RecLine=split ('\t') ;