use Storable qw(freeze);

my @a = '0001'..'1000';
my $foo = freeze \@a;
$_ += 0 for @a;
my $bar = freeze \@a;
print "before: ", length $foo, ", after: ", length $bar, "\n";

before: 6016, after: 4635