in reply to Input Hash Values Into Subroutine

It looks like your subroutine expects a single string as its argument, so just pass that.

 
if (exists $hash2{$samekeys}) {         
     ntSpacer ($hash2{$samekeys});
}
# ...

sub ntSpacer {  
    my $myseq = shift;
    # ... do other stuff
}

[download]

Replies are listed 'Best First'.
Re^2: Input Hash Values Into Subroutine
by Anonymous Monk on Oct 23, 2017 at 19:05 UTC

    Sometimes the easiest solution is the one I made a note of 2 months ago and forgot ...

    Yes, I just needed to run the subroutine for each value of %hash2 - so this works great and prints the right output as seen below (note: it's 10 columns long, but forum posts seem to squish the code a bit). 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]

In Section Seekers of Perl Wisdom