Getting golfy over here, but you don't even need the $_ if part:

@a=qw/foo bar bar baz/; print join ", ", grep { !$h{$_}++ } @a;