This probably runs faster than anything with map or grep, and isn't much longer than the fully golfed ones.

sub compress {
 my @x;
 !@x || $_ ne $x[-1] and push @x, $_ for @{$_[0]};
 \@x
}
[download]