#!/usr/bin/perl
use strict;

&doIt("foo", "bar", "foobar");

sub doIt() {

print shift, "\n"; #prints "foo"
print shift, "\n"; #prints "bar"
print shift, "\n"; #prints "foobar"

}