Select Code to Download

__DATA__
Pm 0.2707    Minimum match (10/15)
...
>2522963-2522975-reverse    St f155    TCGCTATTGAATGCG
>2522963-2522975-reverse    St f204    TCGCTATAAAAAGGC
Total time 0:0:0.

$VAR = [
['CGATATYGAWTSSTT',
...
 '>2522963-2522975-reverse    St f155    TCGCTATTGAATGCG',
 '>2522963-2522975-reverse    St f204    TCGCTATAAAAAGGC',]
];

Mtf 1    15    1.700    10    CGATATCGATTCGTT    CGATATYGAWTSSTT

>2522963-2522975-reverse    St b99    CGATATCGATGGATT

use warnings;
use strict;              
...

#print Dumper \@aoa ;