Select Code to Download

use strict;
use Class::Struct;
...
five,six
seven,eight
nine,ten

use strict;

...
five,six
seven,eight
nine,ten

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