%simpsons = ("father" => "homer", "mother" => "marge", "son" => "bart", "daughter" => "lisa"); #deprecated maggie
$string = "simpsons";
@array = ("simpsons");
%hash = ("family" => "simpsons");
print("$simpsons{father}\n"); #case1 prints "homer"
print("$$string{mother}\n"); #case2 prints "marge"
print("$$array[0]{son}\n"); #case3 err
print("$$hash{family}{daughter}\n"); #case4 err


##</code><code>##

$ar = $array[0];
print("$$ar{son}\n");