Shift and Unshift Perl Program

Script:
@array = ("one", "two", "three");

unshift (@array, "zero");
print "@array \n";

shift (@array);

print "@array \n";

Output:

zero one two three

one two three