print $_->{odd},"\n"for map{my($o,$e)=split',',$_;{odd=>$o,even=>$e}}<DATA>;