in reply to Input Hash Values Into Subroutine

It is not clear from your question WHICh hash contents you need. Here is how to show both: 
                ntSpacer($hash1{$samekeys});
                ntSpacer($hash2{$samekeys});
                
        }
    }

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

[download]
I would want to pass some indication of WHICH hash, and which key was being printed.
for that, change the param to : 
   my ($myseq, $hashname, $key) = @_;

[download]
And the call becomes: 
       ntSpacer($hash2{$samekeys}, "HASH2", $samekeys);

[download]

                All power corrupts, but we need electricity.

Replies are listed 'Best First'.
Re^2: Input Hash Values Into Subroutine
by FIJI42 (Acolyte) on Oct 23, 2017 at 19:12 UTC

    Sorry for not specifying. I just needed to run the subroutine for each value in %hash2.

    Since the subroutine only expects a single string as output, the code you provided works well:

     ntSpacer($hash2{$samekeys});

    Here's the output I was looking for - thanks!

                 1          2          3          4          5          6 
+         7          8          9         10
Line 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890
+ 1234567890 1234567890 1234567890 1234567890
   1 GTGTCTGGAT TCTATATAAA AACTTTCCTA AGACAAGGGA AAACAAAAAA CCATGCTCTA
+ CAACTTCAAA TTTTTCTTAC AAAGAAAAAT TTAATATTCG
   2 ATGAGAGGTT GAACCAGGCT TAAAGCAGAC ATACTAGGAA ATGGTGCAGC CTGTAAGAAT
+ GCCAGTTTGT AAGTACTGAC TTTGGAAAAG ATCATCGCCT
   3 CTATCAGACA CTTAGGGTCC TGGTCTGGCA ATTTTGGCCT GATGTGATGC CACAAGACCC
+ AACAGAGAGA GACACAGAGT CCAGGATAAT GTTGACAGTG
   4 GTGTAGCCCT TTAGGAGAAA TGGCGCTCCC TGCGGCTGGT ATTAGGTTAC CATTGGCACC
+ GAAGGAACCA GGAGGATAAG AATATCCATA ATTTCAGAGC
   5 TGCCCTGGCA CAGTACCTGC CCCGTCGGAG GCTCTCACTG GCAAATGACA GCTCTGTGCA
+ AGGAGCACTC CCAAGTATAA AAATTATTAC ACAGTTTTAT
   6 TCTGAAGAAC ATTTTGCATT TTAATAAAAA AGGATTTATG TCAGGAAAGA GTCATTTACA
+ AACCTTGAAG TGTTTTTGCC TGGATCAGAG TAAGAATGTC
   7 TTAAGAAGAG GTTTGTAAGG TCTTCAATAA AAAGTGGTGT TTGTTATTTA CAATTTTTTT
+ TTTTAAAAAA ATTAACAGGT TGTCTGTATA CTATTAAAAA
   8 TGGGGGGGGG GGGGAAAAAA AAAAAAAAAA AA

              1          2          3          4          5          6
+          7          8          9         10
Line 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890
+ 1234567890 1234567890 1234567890 1234567890
   1 GGATAATGTT GACAGTGGTG TAGCCCTTTA GGAGAAATGG CGCTCCCTGC GGCTGGTATT
+ AGGTTACCAT TGGCACCGAA GGAACCAGGA GGATAAGAAT
   2 ATCCATAATT TCAGAGCTGC CCTGGCACAG TACCTGCCCC GTCGGAGGCT CTCACTGGCA
+ AATGACAGCT CTGTGCAAGG AGCACTCCCA AGTATAAAAA
   3 TTATTACACA GTTTTATTCT GAAGAACATT TTGCATTTTA ATAAAAAAGG ATTTATGTCA
+ GGAAAGAGTC ATTTACAAAC CTTGAAGTGT TTTTGCCTGG
   4 ATCAGAGTAA GAATGTCTTA AGAAGAGGTT TGTAAGGTCT TCATAATAAA GTGGTGTTTG
+ TTATTTACAA AAAAAAAAAA AAAAAAAATT AACAGGTTGT
   5 CTGTATACTA TTAAAAATTT TGGACCAAAA AAAAAAAAAA

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom