Select Code to Download

use strict;
use warnings;
...
   [ \ @headers, \ @lines ],
   [ qw{ *headers *lines } ],
   );

@headers = (
             '>1gmz_B mol:protein length:122  PHOSPHOLIPASE A2',
...
           'Sbjct: 58  -----DPKWDDYTYSWKNGTIVCGGD-DPCKKEVCECDKAAAICF 9
+6',
           ''
         );

    push @{ $inHeader ? @headers : @lines }, $_;