>perl -wMstrict -le
"my @array = (qw(hi hiya hello hello), undef, qw(lo hello));
 @array = grep !defined || $_ ne 'hello', @array;
 print defined($_) ? qq{'$_'} : 'UNDEF' for @array;
"
'hi'
'hiya'
UNDEF
'lo'