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

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