gluon-simple-tc: initial.pl: sort keys before creating config

gluon/gluon-simple-tc/initial.pl

@@ -6,10 +6,12 @@ print <<'END';
 uci -q batch <<EOF
 END
 
-while (($name, $interface) = each %{$cfg}) {
+foreach my $name (sort keys %{$cfg}) {
+  my $interface = $cfg->{$name};
+
   print "set gluon-simple-tc.$name=interface\n";
 
-  for (qw(ifname enabled limit_egress limit_ingress)) {
+  for (qw(enabled ifname limit_egress limit_ingress)) {
     print "set gluon-simple-tc.$name.$_=$interface->{$_}\n";
   }
 }