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