#!/usr/bin/perl

@string = ("One","Two","Three");

push(@string, "Four");
print "@string\n";

push(@string, True);
print "@string\n";

@string[2] =4;
print "@string\n";

pop(@string);
print "@string\n";