my @objects = ();
my %unique  = map { "$_" => 1 } @objects;
print sort keys %unique;