Select Code to Download

$ perl -E 'my @x = qw{a b c}; say "@x"; splice @x, 1, 1; say "@x"'
a b c
a c

$ perl -E 'my @x = qw{a b c}; say "@x"; my @y = @x[0,2]; say "@y"'
a b c
a c

$ perl -E 'my @x = qw{a b c}; say "@x"; my $sel = "b"; my @y = grep { 
+$_ ne $sel } @x; say "@y"'
a b c
a c