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