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

}