foreach my $samekeys (sort keys %hash1) {
		if (exists $hash2{$samekeys}){          
				
				ntSpacer(????);
				
		}
	}

sub ntSpacer{
  
	my $myseq= 
	my $space;							

		### Prints number on top line to show groups of 10 nucleotides

		print "              1".$space."         2".$space."         3".$space."         4".$space."         5".$space.
      		"         6".$space."         7".$space."         8".$space."         9".$space."        10"."\n";

		### Prints numbers per nucleotide, per groups of 10.

		print "Line".$space."1234567890".$space."1234567890".$space."1234567890".$space."1234567890".$space."1234567890".$space."1234567890".		$space."1234567890".$space."1234567890".$space."1234567890".$space."1234567890"."\n";

                ## For loop to set 100 nucleotides as maximum length of each line
		
                my $line_number=0;					             
		for (my $i=0; $i<length($myseq); $i=$i+100){     
			$line_number=$line_number+1;
	 		my $seq100=substr($myseq,$i,100);
	 		
              ## If line number is greater than or equal to 10, print with custom spacing.

			if ($line_number>=10) {				    
	 			print "  $line_number ";
			}
	 		
			else {
	 			print "   $line_number ";		     
	 		}
	 
          ## Divides every 100 nucleotides into groups of 10 with spaces.

	 		for (my $j=0; $j<length($seq100); $j=$j+10) {
      				my $seq10 = substr($seq100,$j,10);
					print "$seq10".$space;
                         
                ## ^ Prints nucleotide sequence with spacers incorporated into it.
	 		}	
		}
}

##</code><code>##

        1          2          3          4          5          6
Line 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890
   1 GGAAAAACAT TTCATCTTAA AACTTTCCTA AGACAAGGGA AAACAAAAAA CCATGCTCTA
   2 TTTTTCTTAC AAAGAAAAAT TTAATATTCG ATGAGAGGTT GAACCAGGCT TAAAGCAGAC
   3 ATGGTGCAGC CTGTAAGAAT GCCAGTTTGT AAGTACTGAC TTTGGAAAAG ATCATCGCCT
   4 CTTAGGGTCC TGGTCTGGCA ATTTTGGCCT GATGTGATGC CACAAGACCC AACAGAGAGA
   5 CCAGGATAAT GTTGACAGTG GTGTAGCCCT TTAGGAGAAA TGGCGCTCCC TGCGGCTGGT
   6 CATTGGCACC GAAGGAACCA GGAGGATAAG AATATCCATA ATTTCAGAGC TGCCCTGGCA
   7 CCCGTCGGAG GCTCTCACTG GCAAATGACA GCTCTGTGCA AGGAGCACTC CCAAGTATAA
   8 ACAGTTTTAT TCTGAAGAAC ATTTTGCATT TTAATAAAAA AGGATTTATG TCAGGAAAGA

              1          2          3          4          5          6
Line 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890
   1 GGAAAAACAT TTCATCTTAA AACTTTCCTA AGACAAGGGA AAACAAAAAA CCATGCTCTA
   2 TTTTTCTTAC AAAGAAAAAT TTAATATTCG ATGAGAGGTT GAACCAGGCT TAAAGCAGAC
   3 ATGGTGCAGC CTGTAAGAAT GCCAGTTTGT AAGTACTGAC TTTGGAAAAG ATCATCGCCT
   4 CTTAGGGTCC TGGTCTGGCA ATTTTGGCCT GATGTGATGC CACAAGACCC AACAGAGAGA
   5 CCAGGATAAT GTTGACAGTG GTGTAGCCCT TTAGGAGAAA TGGCGCTCCC TGCGGCTGGT
   6 CATTGGCACC GAAGGAACCA GGAGGATAAG AATATCCATA ATTTCAGAGC TGCCCTGGCA
   7 CCCGTCGGAG GCTCTCACTG GCAAATGACA GCTCTGTGCA AGGAGCACTC CCAAGTATAA
   8 ACAGTTTTAT TCTGAAGAAC ATTTTGCATT TTAATAAAAA AGGATTTATG TCAGGAAAGA


   etc.