use warnings;
use strict;
use Data::Dump;

sub good {
	my ($string,$times) = @_;
	my @array; # lexical variable
	push @array, $string for 1..$times;
	return \@array;
}

sub bad {
	my ($string,$times) = @_;
	our @array; # package variable
	# always the same "@array" here!
	push @array, $string for 1..$times;
	return \@array;
}

my $arr1 = good("foo",2);
dd $arr1;  # prints ["foo", "foo"]
my $arr2 = good("bar",2);
dd $arr2;  # prints ["bar", "bar"]

my $arr3 = bad("quz",2);
dd $arr3;  # prints ["quz", "quz"]
my $arr4 = bad("baz",2);
dd $arr4;  # prints ["quz", "quz", "baz", "baz"]