Select Code to Download

file1:
>AAAT3R length=110
...
18 18 18 21 35 35 35 32 32 32 33 35 38 39
>AAA2OJ_right length=14
37 37 37 37 37 33 32 32 30 20 17 17 17 0

#!/usr/bin/perl
use strict;
...
      print reverse(@string),"\n";
      $key=();$value=();$aray2=();@string=();@string1=();
}