>hsa_circ_0075116|chr5:175956288-175956388-|NM_014901|RNF44 FORWARD -4.6 12 .. 35 xxxxGTGTGTGGTCT GC TTCAGTGACTTCGAGGCGCG GC AGCTGCTCCGAGTCC -5.5 11 .. 36 xxxxxGTGTGTGGTC TGC TTCAGTGACTTCGAGGCGCG GCA GCTGCTCCGAGTCCT -7.8 10 .. 37 xxxxxxGTGTGTGGT CTGC TTCAGTGACTTCGAGGCGCG GCAG CTGCTCCGAGTCCTC -4.3 9 .. 38 xxxxxxxGTGTGTGG TCTGC TTCAGTGACTTCGAGGCGCG GCAGC TGCTCCGAGTCCTCC -4.6 31 .. 41 CAGTGACTTCGAGGC GCGG CAG CTGC TCCGAGTCCTCCCCT -5.7 28 .. 44 CTTCAGTGACTTCGA GGCGCGG CAG CTGCTCC GAGTCCTCCCCTGCA -5.1 20 .. 49 GTGGTCTGCTTCAGT GACTT CGAGGCGCGGCAGCTGCTCC GAGTC CTCCCCTGCAACCAT -4.3 27 .. 56 GCTTCAGTGACTTCG AGGCG CGGCAGCTGCTCCGAGTCCT CCCCT GCAACCATGAGTTCC -5.6 31 .. 58 CAGTGACTTCGAGGC GCGG CAGCTGCTCCGAGTCCTCCC CTGC AACCATGAGTTCCAC -5.4 72 .. 82 GCAACCATGAGTTCC ACAC CAA GTGT GTTGACAAGTGGTTG -7.7 71 .. 83 TGCAACCATGAGTTC CACAC CAA GTGTG TTGACAAGTGGTTGA -4.2 70 .. 84 CTGCAACCATGAGTT CCACAC CAA GTGTGT TGACAAGTGGTTGAA >hsa_circ_0014931|chr1:160293220-160293320-|NM_001098398|COPA FORWARD -5.5 11 .. 36 xxxxxGGTCACGATC GTG GAGTAAACTGGGCTGCCTTC CAC CCCACTATGCCCCTT -4.5 22 .. 40 GATCGTGGAGTAAAC TGGGCTG CCTTC CACCCCA CTATGCCCCTTATTG -4.1 11 .. 41 xxxxxGGTCACGATC GTGGAG TAAACTGGGCTGCCTTCCAC C-CCAC TATGCCCCTTATTGT #### -4.6 12 .. 35 xxxxGTGTGTGGTCT GC TTCAGTGACTTCGAGGCGCG GC AGCTGCTCCGAGTCC -5.5 11 .. 36 xxxxxGTGTGTGGTC TGC TTCAGTGACTTCGAGGCGCG GCA GCTGCTCCGAGTCCT -7.8 10 .. 37 xxxxxxGTGTGTGGT CTGC TTCAGTGACTTCGAGGCGCG GCAG CTGCTCCGAGTCCTC -4.3 9 .. 38 xxxxxxxGTGTGTGG TCTGC TTCAGTGACTTCGAGGCGCG GCAGC TGCTCCGAGTCCTCC -4.6 31 .. 41 CAGTGACTTCGAGGC GCGG CAG CTGC TCCGAGTCCTCCCCT #### #!/usr/bin/perl use strict; use warnings; open my $hairpin_file, '<', "test.hairpin", or die $!; my %HoA_sequences; while (my $line = <$hairpin_file>){ if ($line =~ /^>hsa/){ $HoA_sequences{$line} = ## Do I provide the key for the hash as soon as I read in the line bearing the sequence name? ## And can I create a hash with a key but no hash? I'm guessing not. :/ } } #### if ($line =~ /$RE{num}{real}\s+($RE{num}{real})\s..+($RE{num}{real})+/){ my $start = $1 && my $end = $2; ## Once captured how do I continue to the next line to query if the ## value is - or + of the start and end values }