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

##</code><code>##

sub my_scalar {
  my $count=0;
  $count++ foreach @_;
  return $count;
}

##</code><code>##

sub listy(\@){
	print join("*",@{$_[0]}),"\n";
}
listy @array;

##</code><code>##

sub assert ($;$) {
    unless($_[0]) {
        require Carp;
        Carp::confess( _fail_msg($_[1]) );
    }
    return undef;
}

##</code><code>##

assert @array,"Array must have elements within";

##</code><code>##

assert scalar @array,"...";