sub foo ($$$) {
  return "A: $_[0] B: $_[1] C: $_[2]\n";
}

my @arg1=("Foo");
my @arg2=("Bar");
my @arg3=("Baz");

print foo(@arg1,@arg2,@arg3);

# Ack whats this?
# A: 1 B: 1 C: 1

__END__
push @arg1,@arg2,@arg3;

print foo(@arg1); # whatdoyoumeanthisdoesntwork!

##</code><code>##

sub funky(&$) {
  my $sub=shift;
  my $string=shift;
  $sub->() foreach split //,$string;
}

funky {print $_} "yabbadabbadoo";