Select Code to Download

    package Tie::HashNKeys;
    use strict;
...
    sub FETCH {
        $_[0]->{ join $;, sort split /$;/, $_[1] };
    }

    tie my %hash, 'Tie::HashNKeys';
    $hash{'csUsers','csGroups'} = 'foo';
    print $hash{'csGroups','csUsers'};   ## prints 'foo'