Select Code to Download

my @fruit = ('apples', 'pears', 'bananas');
my @drinks = ('cola', 'lemonade', 'water');

foo(@fruit,@drinks);

foo(\@fruit,\@drinks);

...
   print $drinks->[0], "\n";

}