my @shuffled = map {$_->[1]}
  sort {$a->[0] <=> $b->[0]}
  map {[rand(), $_]} @orig;