foreach $line (readline FNAME){
    @data = split /\t/, $line;
    foreach $bit (@data){
        $bit = removeWhiteSpace($bit);
    }
    $id_veritasHash{$count} = \@data;
    $count ++;
}