#!/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"

}

##</code><code>##

#!/usr/bin/perl
use strict;

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

sub doIt() {

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

}

##</code><code>##

#!/usr/bin/perl
use strict;

&doIt(-first => "foo", -second => "bar", -third => "foobar");

sub doIt() {
my %params = @_; #turns the passed arguments into an array

print $params{'-first'}, "\n"; #prints "foo"
print $params{'-second'}, "\n"; #prints "bar"
print $params{'-third'}, "\n"; #prints "foobar"

}