my %h;
my @toBeMoved = sort {$a <=> $b} grep {++$h{$_} == 1} @toBeMoved;