Select Code to Download

use strict;

...
__END__

Prints --> a b c 0 c d u undef blink 0 v w a b c

perl -e "@list = grep{$_ ne 'aardvark'} 
                 map{defined $_ ? $_ : 'undef'} 
...
print join ' ', @list;"

Prints --> a b c 0 c u undef 0 v w

use strict;
sub nodupes {
...
Prints --> a b c 0 c d u  blink 0 v "0" w a b c
                        ^^
     There's an undef between these two spaces.