my $h_periods =
  {
    Mercury => { orbital => 0.24,  rotation => 58.64 },
    Venus   => { orbital => 0.62,  rotation => -243.02 },
    Earth   => { orbital => 1.00,  rotation => 1.00 },
    Mars    => { orbital => 1.88,  rotation => 1.03 },
    Jupiter => { orbital => 11.86, rotation => 0.41 },
    Saturn  => { orbital => 29.46, rotation => 0.43 },
    Uranus  => { orbital => 84.01, rotation => -0.72 },
    Neptune => { orbital => 164.8, rotation => 0.67 },
};

##</code><code>##

   `separate'  Each rule can define its own section separator, which
   	    describes how to identify the separation of "sections"
   	    within the region to be aligned.  Setting the `separate'
   	    attribute overrides the value of `align-region-separate'
   	    (see the documentation of that variable for possible
   	    values), and any separation argument passed to `align'.

##</code><code>##

 Alignment rule:
            Title: perl-assignment
            Required attributes:
            Regexp:
            (Regular expression to match)
            Choice: Value Menu Regexp: [^=!^&*-+<>/| 	
]\(\s-*\)=[~>]?\(\s-*\)\([^>= 	
]\|$\)
            Optional attributes:
            INS DEL Choice: Value Menu Paren group:
                        (Parenthesis group to use)
                        Choice: Value Menu Repeat:
                        INS DEL Integer: 1
                        INS DEL Integer: 2
                        INS
            INS DEL Choice: Value Menu Modes:
                        (Modes where this rule applies)
                        Lisp expression: align-perl-modes
            INS DEL Choice: Value Menu To Tab Stop:
                        (Should rule align to tab stops)
                        Boolean: Toggle  off (nil)
            INS