my $foo = 'Hallo';

# 1. block: $foo aendern
{  $foo .= ' Welt.'; }

# 2. block: neues $foo im Block;
{ my $foo = 'Adieu';  print "2. $foo.\n"; }

# "aeusseres" $foo kontrollieren
print "X. $foo\n";