Select Code to Download

                ntSpacer($hash1{$samekeys});
                ntSpacer($hash2{$samekeys});
...
  
    my ($myseq) = @_;
    .. process and print $myseq...

   my ($myseq, $hashname, $key) = @_;

       ntSpacer($hash2{$samekeys}, "HASH2", $samekeys);