bar( qw( testing is fun ) );

sub bar {
    &foo;
    foo();
    &foo();
    foo( 'woohoo' );
}
sub foo {
    print 'foo: ';
    print join q{,}, map { "[$_]" } @_;
    print "\n";
}