1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6use vars qw($foo);
7
8$foo = 1;
9
10print "Hello\n";
11
12for my $idx (map { $_ * 10 } 1 .. 10)
13{
14    if ($idx > 17)
15    {
16        $foo = 2;
17        print "Baz\n";
18    }
19}
20
21