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