#!/usr/bin/perl
use strict;
use warnings;

my $bar = 'baz';

sub foo {
  $bar = 'qux';
}

foo();

print $bar; # prints 'qux'