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

my @test = ("one","two","three");
my $x    = "one";
my $y    = "two";
my $z    = "three";

test1($x,$y,$z);
print "$x\n$y\n$z\n\n";

test2($x,$y,$z);
print "$x\n$y\n$z\n";

test1(@test);
print join "\n", @test, "\n";

test2(@test);
print join "\n", @test, "\n";

sub test1 {
  my $x1 = shift;
  my $y1 = shift;
  my $z1 = shift;
  $_[0] = "test1: 1";
  $_[1] = "test1: 2";
  $_[2] = "test1: 3";
}

sub test2 {
  my ($x2,$y2,$z2) = @_;
  $_[0] = "test2: 1";
  $_[1] = "test2: 2";
  $_[2] = "test2: 3";
}

##</code><code>##

one
two
three
 
test2: 1
test2: 2
test2: 3
one
two
three
 
test2: 1
test2: 2
test2: 3