#!/usr/bin/perl

my @array = qw[ foo bar baz bar foo baz baz bad ];

sub dedupe
{
        ${_}=do{{},[],{}};@{${_}}{@_,%_,@_}=$|;keys%{\%{${_}}}
}

print dedupe(@array);