# 858508.pl
use strict;
use warnings;
use 5.010;

my @array_old = my @array = ( 1 .. 10e3 );

for my $i ( 0 .. $#array ) {
    my $buffer = $array[$i];
    $array[$i] = new_value();
    $array[$i] = $buffer;
 }

if( @array_old ~~ @array ) {
    say "arrays are equal";
} 
else {
    say "array are different";
}


sub new_value {
     rand();
}