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

##</code><code>##

    while ( ($key, @value) = each %id_veritasHash){
        foreach $temp (@value){
            print "$key, $temp\n";
        }
    }

##</code><code>##

13, ARRAY(0x121654)
7, ARRAY(0x121654)
5, ARRAY(0x121654)