#!/usr/bin/perl

$var = "foo";
print $var, "\n";

modify_var();
print $var, "\n";

sub modify_var {
    $var = "bar";
}
print $var;
___OUTPUT___
foo
bar
bar