my $x = 1;

# Blockbeginn
{
  my $y = 2;
  my $x = 3;
  print "x:[$x] y:[$y]\n"; 
}
# Blockende
# x ist wieder 1, y ist undefiniert
print "x:[$x] y:[$y]\n";