#!/usr/bin/perl -w
use strict;

my $test = "Hi there!";
change($test);
print $test;

sub change {
    $_[0] = "Hey, this is different!\n";
}