TIMTOWTDI and all that...

@toBeMoved = do { my %h; @h{ @toBeMoved } = (); sort keys %h };
[download]

-sauoq
"My two cents aren't worth a dime.";