sub f {
    my (@a,%h) = @_;
    print("The array has ", 0+@a, " elements\n");
    print("The hash has ", 0+keys(%h), " elements\n");
}

my @a = qw( a b c );
my %h = ( d=>4, e=>5, f=>6 );
f(@a,%h); # Same as f($a[0],$a[1],$a[2],'e',$h{e},'d',$h{d},'f',$h{f})