my $ref = fill_array();

print @$ref, "\n";

sub fill_array {
    push @_, qw/foo bar foobar/;
    return \@_;
}