my %unique  = map {; "$_" => 1 } @objects;

##</code><code>##

my %unique  = map { $_ => 1 } @objects;

##</code><code>##

my %seen;
my @unique = grep !$seen{$_}++, @objects;
print @unique;