running the above code with perl -MO=Deparse results in the following:

print sort(uniq(@array));
print sort('uniq' @array);
[download]