my %max;
$max{george}{money} = 100;
$max{george}{budget} = 100;
my $person = "lindsay";
$max{$person}{money} = 1500;
$max{$person}{budget} = 2000;

for ("george","lindsay") {
   printf "%s's money= %d\n", $_, $max{$_}{money};
}