Select Code to Download

sub foo {...};
my @a = (1, 2, 3);
foo(1, 2, 3);
foo(@a);

sub bar ($$$) {...};
my @a = (1, 2, 3);
bar(1, 2, 3);
bar(@a);  # Not enough arguments error