Select Code to Download

sub foo {
    my @files;
...

print join ' ', foo(123, 456);       # prints '123 456'.
print join ' ', foo('abc', 'def');   # prints nothing.

my @files;
sub foo {
...

foo('abc', 'def');
print join ' ', @files; # '123 456 abc def'

sub foo {
    @files = ();
...
    shift;
    foo(@_) if @_;
}

sub foo {
    my @files;
...

print join ' ', foo(123, 456);       # '123 456'
print join ' ', foo('abc', 'def');   # 'abc def'

sub foo {
    my @files;
...

print join ' ', foo(123, 456);       # '123 456 456'
print join ' ', foo('abc', 'def');   # 'abc def def'