use strict;
use warnings;

my $var = 1;
{
    my $var = 2;
    print $var, "\n",
}
print "$var \n";
foreach my $var (1..5) {
	print $var, "\n";
}
print double(7);
sub double {my $var = shift; return 2 * $var;}

##</code><code>##

$ perl scope.pl
2
1
1
2
3
4
5
14