First, you have syntax error in that code (the opening curly in the sub call). Second, braces are unneccessary too.

Do you test your code before posting?

FeetIntact(toe => big, smell => roquefort );
sub FeetIntact
{
    my %par = @_;
    print $par{smell}; #roquefort
}
[download]