c:\@Work\Perl\monks>perl -wMstrict -le
"use Test::More tests => 2;
 use List::MoreUtils 'uniq';
 ;;
 my $v = 'ovedpo15';
 my $href = { $v => [5, 3, 2] };
 ;;
 sortuniq ($href->{$v}, 3);
 is_deeply ($href->{$v}, [2, 3, 5], 'Duplicate added, sorted');
 sortuniq ($href->{$v}, 4);
 is_deeply ($href->{$v}, [2, 3, 4, 5], 'Non-duplicate added, sorted');
 ;;
 sub sortuniq {
   my $aref = shift @_;
   @$aref = sort(uniq(@$aref, @_));
   }
"
1..2
ok 1 - Duplicate added, sorted
ok 2 - Non-duplicate added, sorted