Select Code to Download

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

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

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