Dear all,
Suppose I have the following array and hash: 
my @arr = ('foo','bar','qux','foo1','bar1','qux1');

my $hash = {
          '4-5' => '0.750',
          '0-4' => '0.167',
          '0-2' => '0.600',
          '2-3' => '0.200',
          '2-4' => '0.300',
          '0-3' => '0.300',
          '2-5' => '0.400',
          '1-2' => '0.550',
          '1-5' => '0.273',
          '3-4' => '0.300',
          '1-4' => '0.182',
          '0-1' => '0.917',
          '3-5' => '0.400',
          '0-5' => '0.250',
          '1-3' => '0.300'
        };

[download]
Now the key and value of $hash represent the following: 
    'x-y' => 'VALUE'

     x and y represent the index of the element in @arr
     x and y are reversible

     so for example:

     '0-3' => '0.300', means that
     'foo' and 'foo1' has value 0.300 OR
     'foo1' and 'foo' has value 0.300

[download]
Now my question is, how can we sort decendingly @arr_sorted, such that for every index 'z' in @arr, the VALUE of its (z,y) <= (z,y+1)?

Members of @arr_sorted is exactly the same as @arr, only sorted according to the condition above. And yes, every 'z' has its corresponding @arr_sorted.

I'm not sure how to proceed from here: 

foreach my $z (0 .. ($#arr-1)) {

   my @arr_sorted = sort{???} @arr;

}

[download]
Updated.

Regards,
Edward

In reply to Conditional Sorting by monkfan

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.