#!/usr/bin/perl
@source = (1, 2, 3);
@copy = @source;
$copy[0] = 9;
print "@source";