$str = "Fest gemauert in der Erden";
$strref = \$str;
print ${$strref}, "\n";

${$strref} = "Steht die Form aus Lehm gebrannt";
print $str, "\n";

@array1 = qw(Bibi Bibo);
$arrayref = \@array1;

print "[A1]: ", join(',',@array1), "\n";
print "[AR]: ", join(',',@{$arrayref}), "\n";

push @{$arrayref}, "Bobo";

print "[A1]: ", join(',',@array1), "\n";
print "[AR]: ", join(',',@{$arrayref}), "\n";