my @sorted = map {
    $_->[1]
 } sort {
    $a->[0] cmp $b->[0]
} map {
    my $index = m{(.*)/index_de.htm$}i ? $1 : $_;
    [$index, $_]
} @list;