Select Code to Download

my @a = ('a', 'b', 'c', 'd');
#or my @a = qw( a b c d );

@a = grep { $_ ne 'c' } @a;