Select Code to Download

$ perl -E '                                               
    my @x = qw{a,b,c d,e,f g,h,i};
...
b
e
h

$ perl -E '
    my @x = qw{a,b,c d,e,f g,h,i};
...
b
e
h

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