#!/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";
}