ntSpacer($hash1{$samekeys});
                ntSpacer($hash2{$samekeys});
                
        }
    }

sub ntSpacer{
  
    my ($myseq) = @_;
    .. process and print $myseq...

##</code><code>##

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

##</code><code>##

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