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