my (@odd, @even);
map { if($.&1){ push @odd,$_;} else { push @even,$_ } } while(<FILE>);