Select Code to Download

sub print_arr {
  my $count = @_;
  my $arrayref = shift;
...
my @arr = qw/Beer Wine PerlMonks/;

print_arr(\@arr);