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