my $myarray = shift;

##</code><code>##

my $myarray = @_;

##</code><code>##

sub print_arr {
  my $count = @_;
  my $arrayref = shift;

  print "I have been called with $count arguments.\n";
  print "$_!!\n" for (@$arrayref)
}

my @arr = qw/Beer Wine PerlMonks/;

print_arr(\@arr);

##</code><code>##

print_arr(@arr)