Improve $^foo var naming example

Author: zoffixznet

doc/Language/traps.pod6

@@ -776,8 +776,13 @@ The trouble arises when a person wants to use more complex names for the variabl
 
 Due to the variables allowed to be called anything, this can cause some problems if you are not accustomed to how Perl 6 handles these variables.
 
-=for code
+=begin code
+    # BAD NAMING: alphabetically `four` comes first and gets value `1` in it:
     for 1..4 { say "$^one $^two $^three $^four"; }    # OUTPUT: «2 4 3 1␤»
+    
+    # GOOD NAMING: variables' naming makes it clear how they sort alphabetically:
+    for 1..4 { say "$^a $^b $^c $^d"; }               # OUTPUT: «1 2 3 4␤»
+=end code
 
 =head1 Scope