$ perl -E '
    my @x = qw{a,b,c d,e,f g,h,i};
    my @y = map((split /,/)[1], @x);
    say for @y;
'
b
e
h