use Array::Unique;

my @orig_array = ('11','54','23','78','54','54','78');
tie my @uniq, 'Array::Unique';
@uniq = @orig_array;

print "@uniq";
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.