Select Code to Download

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

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

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

sub assert ($;$) {
    unless($_[0]) {
...
    }
    return undef;
}

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

assert scalar @array,"...";