Select Code to Download

open( FH1 , '>foo' );
open( FH2 , '>bar' );
...
@fhs = ( FH1 , FH2 );

print { $fhs[ $_ % 2 ] } "$_\n" for ( 1 .. 10 );