Help for this page

Select Code to Download

Select or download this

#!/usr/local/bin/perl

...
    print qq{\tsubkey: $subkey\n};
  }
}

Select or download this

key: summary
    subkey: allotments
...
    subkey: 29 
    subkey: 22 
    subkey: 40