Push and Pop in Perl Program

Script:
push (@array, "one");
push (@array, "two");
print "@array \n";

pop (@array);

print "@array \n";

Output:
one two

one