diff --git a/gluon/gluon-simple-tc/initial.pl b/gluon/gluon-simple-tc/initial.pl
index 820029f..fdffdc8 100644
--- a/gluon/gluon-simple-tc/initial.pl
+++ b/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";
   }
 }