Select Code to Download

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