Select Code to Download

@array = qw/P H A G E P H A G E P Q K R E P H A G E P W S Q E P H A G 
+E P R D L E P H A G E/;

my $start = 0;
my $end = 4;
...
    $start += 5;
    $end += 5;
}