Select Code to Download

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

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

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