#!/tool/bin/perl -w
use lib '/home/user_foo/perl_modules/lib/perl5';
use List::MoreUtils qw(uniq);

my @test_array = qw(1 2 3 4 4 4 4);

my @uniq_test_array = uniq(@test_array);

printf("\@uniq_test_array = @uniq_test_array\n");