sub foo{ print join "-",@_};
my @array=qw(a b c d e);
foo(scalar @array,"Bar");