return OUTPUT (\%qual, \%seq);

return (\%qual, \%seq);

  #!/usr/bin/perl   
use strict;   
use warnings;   
use Bio::SeqIO;   
  
my $in  = Bio::SeqIO->new( -file   => "input1.txt" ,   
                           -format => 'fasta');   
  
while ( my $seq = $in->next_seq() ) {   
	my $fasta = $seq->seq;   
	while ($fasta =~ /AATT/ig) {   
		print pos($fasta), ' ', $seq->id, "\n";	   
	}   
}   
  
__END__   
*** contents of input1.txt   
>chr1   
AACCCCCCCCTCCCCCCGCTTCTGGCCACAGCACTTAAACACATCTCTGC   
CAAACCCCAAAAACAAAGAACCCTAACACCAGCCTAACCAGATTTCAAAT   
TTTATCTTTAGGCGGTATGCACTTTTAACAAAAAANNNNNNNNNNNNNNN   
NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN   
GCCCATCCTACCCAGCACACACACACCGCTGCTAACCCCATACCCCGAAC   
CAACCAAACCCCAAAGACACCCCCCACAGTTTATGTAGCTTACCTCNNNN   
>chrM   
GATCACAGGTCTATCACCCTATTAACCACTCACGGGAGCTCTCCATGCAT   
TTGGTATTTTCGTCTGGGGGGTGTGCACGCGATAGCATTGCGAGACGCTG   
GAGCCGGAGCACCCTATGTCGCAGTATCTGTCTTTGATTCCTGCCTCATT   
CTATTATTTATCGCACCTACGTTCAATATTACAGGCGAACATACCTACTA   
AAGTGTGTTAATTAATTAATGCTTGTAGGACATAATAATAACAATTGAAT   
GTCTGCACAGCCGCTTTCCACACAGACATCATAACAAAANAATTTCCACC   
>GJKKTUG01DYDGC   
GGGTATTCCTTCTCCACCTTGCAGCTAACATCAGTGTTTCGTCTACTCAAGCACGCCAAC   
ACGCCCTAGAGCGCCCTGTCCAGGGGATGGCAACCAACTCTGACCCTGCAAGTGCAGCAG   
ACATGAGGAATACAAACTACAATCTTTTACTTGATGATGCAATGCCGGACAAACTCTAGA   
>F0Z7V0F01EDB3V   
AAGGCGAGNGGTATCACGCAGTAAGTTACGGTTTTCGGGTAACGCGTCNGNGGNACTAAC   
CCACGGNGGGTAACCCGTCNCTACCGGTATAGGACTAAGGTTACCGGAACGTCGTGGGGT   
ACCCCCCGGACGGGGACCGTCCCCTCATANAGTCAACNGTNTGAGATGGACTAACTCAAA   
CCTAGTTTCAAGTACTATTTAACTTACTTACGTTACCCGTAATTTCGGCGTTTAGAGGCG

  C:\Old_Data\perlp>perl t33.pl   
101 chr1   
213 chrM   
217 chrM   
246 chrM   
294 chrM   
224 F0Z7V0F01EDB3V

# execute first sub which takes in 1 arg and returns 2 hash references. 
my ($hash_ref1, $hash_ref2) = first($arquivo); 
 
# pass those hash refs to the second sub, which returns adjusted versions 
($hash_ref1, $hash_ref2) = second($hash_ref1, $hash_ref2); 
 
# pass those adjusted versions to the 3rd sub 
third($hash_ref1, $hash_ref2); 
 
####################################### 
 
sub first { 
    .... 
    .... 
    return \%qual, \%seq; 
} 
 
sub second { 
    my ($first_hash_ref, $second_hash_ref) = @_; 
    # process/adjust the hashes as needed 
    .... 
    .... 
    # return the adjusted hashes 
    return $first_hash_ref, $second_hash_ref; 
} 
 
sub third { 
    my ($first_hash_ref, $second_hash_ref) = @_; 
    # process the hashes as needed 
    .... 
    .... 
}