Select Code to Download

#!/usr/bin/perl

...
print "$hash_keys --> $copy_keys, ",
      $hash_keys eq $copy_keys ? "Same" : "Different",
      " order \n";

4 1 3 0 2 5 --> 1 4 0 3 2 5, Different order