use strict;
sub nodupes {
    my $p;
    return grep{ $_ ne '~~' } map { $p ne $_ ? $p = $_ : '~~'  } @_;
}

my @orig = ( qw(a a b b c 0 c d d u u),
            (undef, undef, 'blink', 'blink'),
             qw(0 0 v v "0" "0" "0" w w a a a b b b c c c)
            );

my @new = nodupes @orig;
print join ' ', @new, "\n";

__END__
Prints --> a b c 0 c d u  blink 0 v "0" w a b c
                        ^^
     There's an undef between these two spaces.