Select Code to Download

@lines:
>seq1
ASDFGHASDFGHJ
...
BGTNHYMJUKOPK
MNBFSDFGHJ
....

my $line;
my ($m, $n);
...
        $all_hash{ $n } = $m;
}       
print %all_hash;