while(<>){$_!~/\n$/?$_.="\n":$_;$_%2==0?push@e,$_:push@o,$_}@s=sort{$a<=>$b}@e;@t=sort{$a<=>$b}@o;print@s,"\n",@t;