Select Code to Download

%users = (
    rjt => {
        home  => '/home/rjt',
...
        groups=> [ qw< users lpadmin > ],
    },
);

print "rjt's uid is $users{rjt}{uid}\n";

local $" = ', '; # List separator
print "jdlev is a member of: @{$users{jdlev}{groups}}.\n";

push @{$users{jdlev}{groups}}, 'sudo'; # jdlev now belongs to sudo as 
+well