$ perl -E 'my @array=qw/1 2 3/; my $first=$array[0]; $first=0; say "array: @array"; say "fetched changed: $first";'
array: 1 2 3
fetched changed: 0