#!/usr/bin/perl -w 
# Array copies # Initialize two arrays with same content
@array_1 = (1, 2, 3);
@array_2 = @array_1;

print "--- Initial values of two arrays ---\n";
print "array 1 is: @array_1\n";
print "array 2 is: @array_2\n";

# Modify the first array
$array_1[0] = 3;

print "--- New values of two arrays ---\n";
print "array 1 is: @array_1\n";
print "array 2 is: @array_2\n";

exit;