Unfortunately, I am having to use a stored procedure in the database to pivot the data just to get a single result set. I am unable to use a join inside the call to the stored procedure to return 3 the pivots that I need.

If you formatted your post, you'd probably get more responses.

Assuming that each of your queries produces a hashref containing the same keys, then printing the values as you've asked might look something like this:

my $hash_ref1 = $dbh->selectall_hashref( $sql1, $key_field1, {}, @valu
+es1 ); 
my $hash_ref2 = $dbh->selectall_hashref( $sql2, $key_field2, {}, @valu
+es2 ); 
my $hash_ref3 = $dbh->selectall_hashref( $sql3, $key_field3, {}, @valu
+es3 ); 

## for each id    
for my $id ( keys %{ $hashref1 } ) {
    ## extract an array of results for that key from each hash
    my @results1 = @{ $hashref1->{ $id } };
    my @results2 = @{ $hashref2->{ $id } };
    my @results3 = @{ $hashref3->{ $id } };

    ## join them together with spaces 
    ## and print them along with the key
    printf "%14s :  %s \t%s\t%s\n", $id, 
        join( ' ', @results1 ),
        join( ' ', @results2 ),
        join( ' ', @results3 );
}
[download]

I took your code and pulled into my script. However, I was getting an error:

Not an ARRAY reference

I modified the code as follows:


for my $id ( sort keys %{ $hashref1 } ) {
    ## extract an array of results for that key from each hash
    my %results1 = %{ $hashref1->{ $id } };
    my %results2 = %{ $hashref2->{ $id } };
    my %results3 = %{ $hashref3->{ $id } };

    ## join them together with spaces 
    ## and print them along with the key
    printf "%14s :  %s \t%s\t%s\n", $id, 
        join( ' ', %results1 ),
        join( ' ', %results2 ),
        join( ' ', %results3 );
}
[download]

I was then able to get the data back out of the hash but it did not maintain the data order (columns) that I get when running the straight SQL. Perhaps using the selectall_hashref may not be the answer.
If people have other suggestions for options, feel free to pass them along.

Could you post an example ( a couple of lines ) of the output your code is now producing?

---

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."