#!/usr/bin/perl -w

use strict;

my ($foo,$bar,$baz) = (1,2,3);

print "$foo, $bar, $baz \n"; # Prints 1, 2, 3

foo($foo,$bar,$baz);

print "$foo, $bar, $baz \n"; # Prints 5, 10 , 15


sub foo {
	foreach (@_) {
		$_ *= 5;
	}
}