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