#!/usr/bin/perl
my $x = "One";
$x = "FirstVal";
set_x();
$x = "SecondVal";
set_x();
$x = "ThirdVal";
set_x();
$x = "FourthVal";
set_x();
sub set_x
{
    $x .= "OneHundred";
    my $t = $x;
    $t .= "Foo";
}