As TMTWTDI, here's a solution with the CPAN module Array::Unique.

use Array::Unique;

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

print "@uniq";
[download]

Greetings,
Janek