testfunc($scalar,\@array,\%hash);

sub testfunc
{
 my ($scalar,$arrayref,$hashref) = @_;
}

##</code><code>##

my $appointments = {
                    monday=> { "10:30"=>"dentist",
                               "11:30"=>"doctor" },
                    tuesday => { "10:30" => " planning meeting",
                                 "16:30" => " funding deadline" }
                    };