Array Perl

push(@array, "one");
push(@array, "two");
push(@array, "three");
print $array;