Select Code to Download

print "@$_" for sort{
    my ($o, $i) = (0,0);
...
            or  $o = @$a      <=> @$b;
    $o;
}@deps;

C B A
C G F H
...
M N Q P O
U S
V T

print "@$_" for sort{
    my ($o, $i) = (0,0);
...

    $o || @$a <=> @$b;
}@deps;