#File Foo.pm
package Foo;

sub change_var
{
  $_[0] = 'Bar';
}

# File main.pl
use Foo;

my $var = 'Foo';
print "$var\n"; # prints "Foo"

Foo::change_var($var);

print "$var\n"; # prints "Bar"