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