1#!/usr/bin/perl
2my $x = "One";
3
4$x = "FirstVal";
5
6set_x();
7
8$x = "SecondVal";
9
10set_x();
11
12$x = "ThirdVal";
13
14set_x();
15
16$x = "FourthVal";
17
18set_x();
19
20sub set_x
21{
22    $x .= "OneHundred";
23
24    my $t = $x;
25    $t .= "Foo";
26}
27