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

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