Or, alternatively, use an anonymous hash to get the unique values, in a classical way.

my @unique = keys %{{map {$_,undef} @array}};
print join ",", sort {$a <=> $b} @unique;
__END__
11,23,54,78
[download]

 _  _ _  _  
(_|| | |(_|><
 _|