Select Code to Download

my @array = ();
push (@array, $rel_path);
## in my code more than one thing is pushed to @array.
push (@{$self->{files}}, \@array);

sub next {
    my( $self )= @_;
...
        }
    }
}

my $file;
while(  $file = $f->next()  ) {
    print "@{$_}\n";
}

push (@{$self->{output}}, [$rel_path, $var1, $var2]);