You may try doing something like this:

use strict;
my @the_data = (
              {
                  field1 => 'first item',
                  field2 => 8,
                 field3 => 'z',
                  },

              {
                  field1 => 'second item',
                  field2 => 2,
                  field3 => 'b',
                  },

              {
                  field1 => 'third item',
                  field2 => 6,
                  field3 => 'c',
                  },

              );

# sort @the_data by field2 and field3...

for ( sort { ($$a{field2} <=> $$b{field2}) && ($$a{field3} cmp $$b{fie
+ld3}) } @the_data ) {
    print $$_{field1} . "\n";
}
[download]

The output that I get is:

 second item
third item
first item
[download]

In your case, you may have maturity_yrs in place of field2 and rich_cheap instead of field3 inside my sort statement. You can sort your structures in any imaginable way using the sort and your own custom built sort subroutines.

"There is no system but GNU, and Linux is one of its kernels." -- Confession of Faith