Extract unique elements of an array

$prev = 'nonesuch'
@out = grep ( $_ ne $prev && ( $prev = $_ ) , @in );