#!/usr/bin/perl -w

use strict;

# Easy way to set up.
my @list = (1, 2, 3);

# Hard way to set up.
my @list2;

push(@list2, 1);
push(@list2, 2);
push(@list2, 3);

# Easy to copy.
my @list3 = @list2;
