TIMTOWTDI: How about one that preserves the original order?

  @a=qw( one two three for five six seven eight nine ten eleven);
  @hash{@a}=(0..$#a);
  @sorted=sort { $hash{$a}<=>$hash{$b} } keys %hash;
[download]

mr.nick ...