Select Code to Download

sub build_list {
    ($RECORD,$RI,$RECORDxRI,$RECORDxRI_count_REF,$EACH_RECORD_REF) = @
+_;
...
        # NOTE: I have to dereference both hashes
        # on every iteration of the while loop
} # end while data

&build_list(\%hash1,\%hash2);