c:\@Work\Perl\monks>perl -wMstrict -le
"for (1 .. 8) {
   my @k = keys %{ { map { $_ => 1 } 0 .. 8 } };
   print qq{@k};
   }
"
6 3 7 2 8 1 4 0 5
6 3 7 2 8 1 4 0 5
6 3 7 2 8 1 4 0 5
6 3 7 2 8 1 4 0 5
6 3 7 2 8 1 4 0 5
6 3 7 2 8 1 4 0 5
6 3 7 2 8 1 4 0 5
6 3 7 2 8 1 4 0 5