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

##</code><code>##

$ 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

##</code><code>##

my @y = map +(split /,/)[1], @x;