Select Code to Download

my ($a,$b);
while( $a=<F1>, $b= <F2>, $a or $b) {
  ...
}

use strict;
use warnings;
...
  chomp($a,$b);
  print "$a,$b\n";
}

1,1
2,2
,3
,4
,5