...
my $var1 = 1; # gültig in der ganzen datei

{ # einfacher block
    my $var2; # gültig bis zum passenden ende des blocks
    ...
} # $var2-gültigkeit endet hier

sub foo {
    my $var3; # gültig bis zum ende der subroutine
    print $var3;
}

{
    my $var1 = 23; # "überschreibt" äussere variable $var1
                   # bis zum ende des blocks
}