# it does not matter if it's not alphabetically sorted.
foreach ( (sort { length($b) <=> length($a) } grep {$_ =~ /^\Q$chan \E/} @list),
# it does not matter if it's not alphabetically sorted.
foreach ( (sort { length($b) <=> length($a) } grep {$_ =~ /^\Q$chan \E/} @list),
(sort { length($b) <=> length($a) } grep {$_ !~ /^(\Q$chan\E|default) /} @list)
) {
next if (/#DEL#/); # deleted.
(sort { length($b) <=> length($a) } grep {$_ !~ /^(\Q$chan\E|default) /} @list)
) {
next if (/#DEL#/); # deleted.