#!/usr/bin/perl
for (1..9) { $hash{$_} = rand(); }
sub byhash { $hash{$a} <=> $hash{$b}; }
print join " ", (sort byhash (1..9)), "\n";