How about this way:

my %items;
@items{@toBeMoved} = undef;
@toBeMoved = sort {$a <=> $b} keys %items;
[download]

Update: Guess I didn't read the other replies close enough. This is just a rewording of sauoq's reply above.