Select Code to Download

use strict; use warnings;
my @arr = ('foo','bar','qux','foo1','bar1','qux1');
...
} 0 .. $#nodew;

my @arr_sorted = @arr[ @sorted_node_indices ];

use strict; use warnings;
my @arr = ('foo','bar','qux','foo1','bar1','qux1');
...
        sort { $edgew{$from}{$a} <=> $edgew{$from}{$b} }
        keys %{ $edgew{$from} };
}