use strict;
my @toBeMoved = qw(133 22 103 133 133 22 1 999);
my %h;
$h{$_} = 1 for @toBeMoved;
@toBeMoved = sort {$a <=> $b} keys %h;
print "@toBeMoved\n";