my @arr = (
"foo",
"bar"
);
print @arr, "\n";

# append a scalar
push @arr, "post";
print @arr, "\n";

# and remove it again
my $s = pop @arr; print "== popped the last one: $s ==\n";
print @arr, "\n";

# prepend a scalar
unshift @arr, "pre";
print @arr, "\n";

# and remove it
my $t = shift @arr; print "== shifted the first one: $t ==\n";
print @arr, "\n";