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);