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