Select Code to Download

my $address;
while (<IN_FILE>) {
...
  if ($address & 1) { print OUT_FILE1 $_ }
  else { print OUT_FILE2 $_ }
}