sub FeetIntact{
    my ($self,$shootSomeoneElse) = (@_);
    # ...
}
##</code><code>##

FeetIntact( toe => big, smell => roquefort );
sub FeetIntact{
    my %par = (@_);
    # $par { smell } now has value 'roquefort'
}