use strict;

# create array of structs
my @structs;
while (my $line = <DATA>) {
   chomp $line;
   my ($odd,$even) = split(',',$line);
   my %hash = (
      odd  => $odd,
      even => $even,
   );
   # i do have to de-reference %hash though
   push(@structs,\%hash);
}

print $_->{'odd'}, "\n" foreach (@structs);

__DATA__
one,two
three,four
five,six
seven,eight
nine,ten